1/*
2 * Copyright 1984-2012 The MathWorks, Inc.
3 * All Rights Reserved.
4 */
5
6/*
7 * Header File include/mllapack.h
8 * Auto generated by f2h.pl, do not modify by hand
9 */
10
11#if defined(_MSC_VER)
12# pragma once
13#endif
14#if defined(__GNUC__) && (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ > 3))
15# pragma once
16#endif
17
18#ifndef mllapack_h
19#define mllapack_h
20
21#if !defined(MW_HAVE_LAPACK_DECLS) && defined(_LAPACKE_H_) /* %#ok */
22#error "The files lapack.h and lapacke.h may not be simultaneously included because of conflicting declarations of LAPACK routines. Include at most one of these headers in each source file." /* %#ok */
23#else /* %#ok */
24#if defined(_WIN32) || defined(__hpux)
25#define FORTRAN_WRAPPER(x) x
26#else
27#define FORTRAN_WRAPPER(x) x ## _
28#endif
29
30#ifndef COMPLEX_TYPES
31#define COMPLEX_TYPES
32 typedef struct{float r,i;} complex;
33 typedef struct{double r,i;} doublecomplex;
34#endif
35
36#ifdef __cplusplus
37 extern "C" {
38#endif
39
40
41/* Source: dlamch.f */
42#define dlamch FORTRAN_WRAPPER(dlamch)
43extern double dlamch(
44 const char *cmach
45);
46
47/* Source: dlamch.f */
48#define dlamc3 FORTRAN_WRAPPER(dlamc3)
49extern double dlamc3(
50 const double *a,
51 const double *b
52);
53
54/* Source: slamch.f */
55#define slamch FORTRAN_WRAPPER(slamch)
56#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
57extern double slamch(
58#else
59extern float slamch(
60#endif
61 const char *cmach
62);
63
64/* Source: slamch.f */
65#define slamc3 FORTRAN_WRAPPER(slamc3)
66#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
67extern double slamc3(
68#else
69extern float slamc3(
70#endif
71 const float *a,
72 const float *b
73);
74
75/* Source: cbbcsd.f */
76#define cbbcsd FORTRAN_WRAPPER(cbbcsd)
77extern void cbbcsd(
78 const char *jobu1,
79 const char *jobu2,
80 const char *jobv1t,
81 const char *jobv2t,
82 const char *trans,
83 const ptrdiff_t *m,
84 const ptrdiff_t *p,
85 const ptrdiff_t *q,
86 float *theta,
87 float *phi,
88 float *u1,
89 const ptrdiff_t *ldu1,
90 float *u2,
91 const ptrdiff_t *ldu2,
92 float *v1t,
93 const ptrdiff_t *ldv1t,
94 float *v2t,
95 const ptrdiff_t *ldv2t,
96 float *b11d,
97 float *b11e,
98 float *b12d,
99 float *b12e,
100 float *b21d,
101 float *b21e,
102 float *b22d,
103 float *b22e,
104 float *rwork,
105 const ptrdiff_t *lrwork,
106 ptrdiff_t *info
107);
108
109/* Source: cbdsqr.f */
110#define cbdsqr FORTRAN_WRAPPER(cbdsqr)
111extern void cbdsqr(
112 const char *uplo,
113 const ptrdiff_t *n,
114 const ptrdiff_t *ncvt,
115 const ptrdiff_t *nru,
116 const ptrdiff_t *ncc,
117 float *d,
118 float *e,
119 float *vt,
120 const ptrdiff_t *ldvt,
121 float *u,
122 const ptrdiff_t *ldu,
123 float *c,
124 const ptrdiff_t *ldc,
125 float *rwork,
126 ptrdiff_t *info
127);
128
129/* Source: cgbbrd.f */
130#define cgbbrd FORTRAN_WRAPPER(cgbbrd)
131extern void cgbbrd(
132 const char *vect,
133 const ptrdiff_t *m,
134 const ptrdiff_t *n,
135 const ptrdiff_t *ncc,
136 const ptrdiff_t *kl,
137 const ptrdiff_t *ku,
138 float *ab,
139 const ptrdiff_t *ldab,
140 float *d,
141 float *e,
142 float *q,
143 const ptrdiff_t *ldq,
144 float *pt,
145 const ptrdiff_t *ldpt,
146 float *c,
147 const ptrdiff_t *ldc,
148 float *work,
149 float *rwork,
150 ptrdiff_t *info
151);
152
153/* Source: cgbcon.f */
154#define cgbcon FORTRAN_WRAPPER(cgbcon)
155extern void cgbcon(
156 const char *norm,
157 const ptrdiff_t *n,
158 const ptrdiff_t *kl,
159 const ptrdiff_t *ku,
160 const float *ab,
161 const ptrdiff_t *ldab,
162 const ptrdiff_t *ipiv,
163 const float *anorm,
164 float *rcond,
165 float *work,
166 float *rwork,
167 ptrdiff_t *info
168);
169
170/* Source: cgbequ.f */
171#define cgbequ FORTRAN_WRAPPER(cgbequ)
172extern void cgbequ(
173 const ptrdiff_t *m,
174 const ptrdiff_t *n,
175 const ptrdiff_t *kl,
176 const ptrdiff_t *ku,
177 const float *ab,
178 const ptrdiff_t *ldab,
179 float *r,
180 float *c,
181 float *rowcnd,
182 float *colcnd,
183 float *amax,
184 ptrdiff_t *info
185);
186
187/* Source: cgbequb.f */
188#define cgbequb FORTRAN_WRAPPER(cgbequb)
189extern void cgbequb(
190 const ptrdiff_t *m,
191 const ptrdiff_t *n,
192 const ptrdiff_t *kl,
193 const ptrdiff_t *ku,
194 const float *ab,
195 const ptrdiff_t *ldab,
196 float *r,
197 float *c,
198 float *rowcnd,
199 float *colcnd,
200 float *amax,
201 ptrdiff_t *info
202);
203
204/* Source: cgbrfs.f */
205#define cgbrfs FORTRAN_WRAPPER(cgbrfs)
206extern void cgbrfs(
207 const char *trans,
208 const ptrdiff_t *n,
209 const ptrdiff_t *kl,
210 const ptrdiff_t *ku,
211 const ptrdiff_t *nrhs,
212 const float *ab,
213 const ptrdiff_t *ldab,
214 const float *afb,
215 const ptrdiff_t *ldafb,
216 const ptrdiff_t *ipiv,
217 const float *b,
218 const ptrdiff_t *ldb,
219 float *x,
220 const ptrdiff_t *ldx,
221 float *ferr,
222 float *berr,
223 float *work,
224 float *rwork,
225 ptrdiff_t *info
226);
227
228/* Source: cgbsv.f */
229#define cgbsv FORTRAN_WRAPPER(cgbsv)
230extern void cgbsv(
231 const ptrdiff_t *n,
232 const ptrdiff_t *kl,
233 const ptrdiff_t *ku,
234 const ptrdiff_t *nrhs,
235 float *ab,
236 const ptrdiff_t *ldab,
237 ptrdiff_t *ipiv,
238 float *b,
239 const ptrdiff_t *ldb,
240 ptrdiff_t *info
241);
242
243/* Source: cgbsvx.f */
244#define cgbsvx FORTRAN_WRAPPER(cgbsvx)
245extern void cgbsvx(
246 const char *fact,
247 const char *trans,
248 const ptrdiff_t *n,
249 const ptrdiff_t *kl,
250 const ptrdiff_t *ku,
251 const ptrdiff_t *nrhs,
252 float *ab,
253 const ptrdiff_t *ldab,
254 float *afb,
255 const ptrdiff_t *ldafb,
256 ptrdiff_t *ipiv,
257 char *equed,
258 float *r,
259 float *c,
260 float *b,
261 const ptrdiff_t *ldb,
262 float *x,
263 const ptrdiff_t *ldx,
264 float *rcond,
265 float *ferr,
266 float *berr,
267 float *work,
268 float *rwork,
269 ptrdiff_t *info
270);
271
272/* Source: cgbtf2.f */
273#define cgbtf2 FORTRAN_WRAPPER(cgbtf2)
274extern void cgbtf2(
275 const ptrdiff_t *m,
276 const ptrdiff_t *n,
277 const ptrdiff_t *kl,
278 const ptrdiff_t *ku,
279 float *ab,
280 const ptrdiff_t *ldab,
281 ptrdiff_t *ipiv,
282 ptrdiff_t *info
283);
284
285/* Source: cgbtrf.f */
286#define cgbtrf FORTRAN_WRAPPER(cgbtrf)
287extern void cgbtrf(
288 const ptrdiff_t *m,
289 const ptrdiff_t *n,
290 const ptrdiff_t *kl,
291 const ptrdiff_t *ku,
292 float *ab,
293 const ptrdiff_t *ldab,
294 ptrdiff_t *ipiv,
295 ptrdiff_t *info
296);
297
298/* Source: cgbtrs.f */
299#define cgbtrs FORTRAN_WRAPPER(cgbtrs)
300extern void cgbtrs(
301 const char *trans,
302 const ptrdiff_t *n,
303 const ptrdiff_t *kl,
304 const ptrdiff_t *ku,
305 const ptrdiff_t *nrhs,
306 const float *ab,
307 const ptrdiff_t *ldab,
308 const ptrdiff_t *ipiv,
309 float *b,
310 const ptrdiff_t *ldb,
311 ptrdiff_t *info
312);
313
314/* Source: cgebak.f */
315#define cgebak FORTRAN_WRAPPER(cgebak)
316extern void cgebak(
317 const char *job,
318 const char *side,
319 const ptrdiff_t *n,
320 const ptrdiff_t *ilo,
321 const ptrdiff_t *ihi,
322 const float *scale,
323 const ptrdiff_t *m,
324 float *v,
325 const ptrdiff_t *ldv,
326 ptrdiff_t *info
327);
328
329/* Source: cgebal.f */
330#define cgebal FORTRAN_WRAPPER(cgebal)
331extern void cgebal(
332 const char *job,
333 const ptrdiff_t *n,
334 float *a,
335 const ptrdiff_t *lda,
336 ptrdiff_t *ilo,
337 ptrdiff_t *ihi,
338 float *scale,
339 ptrdiff_t *info
340);
341
342/* Source: cgebd2.f */
343#define cgebd2 FORTRAN_WRAPPER(cgebd2)
344extern void cgebd2(
345 const ptrdiff_t *m,
346 const ptrdiff_t *n,
347 float *a,
348 const ptrdiff_t *lda,
349 float *d,
350 float *e,
351 float *tauq,
352 float *taup,
353 float *work,
354 ptrdiff_t *info
355);
356
357/* Source: cgebrd.f */
358#define cgebrd FORTRAN_WRAPPER(cgebrd)
359extern void cgebrd(
360 const ptrdiff_t *m,
361 const ptrdiff_t *n,
362 float *a,
363 const ptrdiff_t *lda,
364 float *d,
365 float *e,
366 float *tauq,
367 float *taup,
368 float *work,
369 const ptrdiff_t *lwork,
370 ptrdiff_t *info
371);
372
373/* Source: cgecon.f */
374#define cgecon FORTRAN_WRAPPER(cgecon)
375extern void cgecon(
376 const char *norm,
377 const ptrdiff_t *n,
378 const float *a,
379 const ptrdiff_t *lda,
380 const float *anorm,
381 float *rcond,
382 float *work,
383 float *rwork,
384 ptrdiff_t *info
385);
386
387/* Source: cgeequ.f */
388#define cgeequ FORTRAN_WRAPPER(cgeequ)
389extern void cgeequ(
390 const ptrdiff_t *m,
391 const ptrdiff_t *n,
392 const float *a,
393 const ptrdiff_t *lda,
394 float *r,
395 float *c,
396 float *rowcnd,
397 float *colcnd,
398 float *amax,
399 ptrdiff_t *info
400);
401
402/* Source: cgeequb.f */
403#define cgeequb FORTRAN_WRAPPER(cgeequb)
404extern void cgeequb(
405 const ptrdiff_t *m,
406 const ptrdiff_t *n,
407 const float *a,
408 const ptrdiff_t *lda,
409 float *r,
410 float *c,
411 float *rowcnd,
412 float *colcnd,
413 float *amax,
414 ptrdiff_t *info
415);
416
417/* Source: cgees.f */
418#define cgees FORTRAN_WRAPPER(cgees)
419extern void cgees(
420 const char *jobvs,
421 const char *sort,
422 ptrdiff_t (*select)(),
423 const ptrdiff_t *n,
424 float *a,
425 const ptrdiff_t *lda,
426 ptrdiff_t *sdim,
427 float *w,
428 float *vs,
429 const ptrdiff_t *ldvs,
430 float *work,
431 const ptrdiff_t *lwork,
432 float *rwork,
433 ptrdiff_t *bwork,
434 ptrdiff_t *info
435);
436
437/* Source: cgeesx.f */
438#define cgeesx FORTRAN_WRAPPER(cgeesx)
439extern void cgeesx(
440 const char *jobvs,
441 const char *sort,
442 ptrdiff_t (*select)(),
443 const char *sense,
444 const ptrdiff_t *n,
445 float *a,
446 const ptrdiff_t *lda,
447 ptrdiff_t *sdim,
448 float *w,
449 float *vs,
450 const ptrdiff_t *ldvs,
451 float *rconde,
452 float *rcondv,
453 float *work,
454 const ptrdiff_t *lwork,
455 float *rwork,
456 ptrdiff_t *bwork,
457 ptrdiff_t *info
458);
459
460/* Source: cgeev.f */
461#define cgeev FORTRAN_WRAPPER(cgeev)
462extern void cgeev(
463 const char *jobvl,
464 const char *jobvr,
465 const ptrdiff_t *n,
466 float *a,
467 const ptrdiff_t *lda,
468 float *w,
469 float *vl,
470 const ptrdiff_t *ldvl,
471 float *vr,
472 const ptrdiff_t *ldvr,
473 float *work,
474 const ptrdiff_t *lwork,
475 float *rwork,
476 ptrdiff_t *info
477);
478
479/* Source: cgeevx.f */
480#define cgeevx FORTRAN_WRAPPER(cgeevx)
481extern void cgeevx(
482 const char *balanc,
483 const char *jobvl,
484 const char *jobvr,
485 const char *sense,
486 const ptrdiff_t *n,
487 float *a,
488 const ptrdiff_t *lda,
489 float *w,
490 float *vl,
491 const ptrdiff_t *ldvl,
492 float *vr,
493 const ptrdiff_t *ldvr,
494 ptrdiff_t *ilo,
495 ptrdiff_t *ihi,
496 float *scale,
497 float *abnrm,
498 float *rconde,
499 float *rcondv,
500 float *work,
501 const ptrdiff_t *lwork,
502 float *rwork,
503 ptrdiff_t *info
504);
505
506/* Source: cgegs.f */
507#define cgegs FORTRAN_WRAPPER(cgegs)
508extern void cgegs(
509 const char *jobvsl,
510 const char *jobvsr,
511 const ptrdiff_t *n,
512 float *a,
513 const ptrdiff_t *lda,
514 float *b,
515 const ptrdiff_t *ldb,
516 float *alpha,
517 float *beta,
518 float *vsl,
519 const ptrdiff_t *ldvsl,
520 float *vsr,
521 const ptrdiff_t *ldvsr,
522 float *work,
523 const ptrdiff_t *lwork,
524 float *rwork,
525 ptrdiff_t *info
526);
527
528/* Source: cgegv.f */
529#define cgegv FORTRAN_WRAPPER(cgegv)
530extern void cgegv(
531 const char *jobvl,
532 const char *jobvr,
533 const ptrdiff_t *n,
534 float *a,
535 const ptrdiff_t *lda,
536 float *b,
537 const ptrdiff_t *ldb,
538 float *alpha,
539 float *beta,
540 float *vl,
541 const ptrdiff_t *ldvl,
542 float *vr,
543 const ptrdiff_t *ldvr,
544 float *work,
545 const ptrdiff_t *lwork,
546 float *rwork,
547 ptrdiff_t *info
548);
549
550/* Source: cgehd2.f */
551#define cgehd2 FORTRAN_WRAPPER(cgehd2)
552extern void cgehd2(
553 const ptrdiff_t *n,
554 const ptrdiff_t *ilo,
555 const ptrdiff_t *ihi,
556 float *a,
557 const ptrdiff_t *lda,
558 float *tau,
559 float *work,
560 ptrdiff_t *info
561);
562
563/* Source: cgehrd.f */
564#define cgehrd FORTRAN_WRAPPER(cgehrd)
565extern void cgehrd(
566 const ptrdiff_t *n,
567 const ptrdiff_t *ilo,
568 const ptrdiff_t *ihi,
569 float *a,
570 const ptrdiff_t *lda,
571 float *tau,
572 float *work,
573 const ptrdiff_t *lwork,
574 ptrdiff_t *info
575);
576
577/* Source: cgelq2.f */
578#define cgelq2 FORTRAN_WRAPPER(cgelq2)
579extern void cgelq2(
580 const ptrdiff_t *m,
581 const ptrdiff_t *n,
582 float *a,
583 const ptrdiff_t *lda,
584 float *tau,
585 float *work,
586 ptrdiff_t *info
587);
588
589/* Source: cgelqf.f */
590#define cgelqf FORTRAN_WRAPPER(cgelqf)
591extern void cgelqf(
592 const ptrdiff_t *m,
593 const ptrdiff_t *n,
594 float *a,
595 const ptrdiff_t *lda,
596 float *tau,
597 float *work,
598 const ptrdiff_t *lwork,
599 ptrdiff_t *info
600);
601
602/* Source: cgels.f */
603#define cgels FORTRAN_WRAPPER(cgels)
604extern void cgels(
605 const char *trans,
606 const ptrdiff_t *m,
607 const ptrdiff_t *n,
608 const ptrdiff_t *nrhs,
609 float *a,
610 const ptrdiff_t *lda,
611 float *b,
612 const ptrdiff_t *ldb,
613 float *work,
614 const ptrdiff_t *lwork,
615 ptrdiff_t *info
616);
617
618/* Source: cgelsd.f */
619#define cgelsd FORTRAN_WRAPPER(cgelsd)
620extern void cgelsd(
621 const ptrdiff_t *m,
622 const ptrdiff_t *n,
623 const ptrdiff_t *nrhs,
624 float *a,
625 const ptrdiff_t *lda,
626 float *b,
627 const ptrdiff_t *ldb,
628 float *s,
629 const float *rcond,
630 ptrdiff_t *rank,
631 float *work,
632 const ptrdiff_t *lwork,
633 float *rwork,
634 ptrdiff_t *iwork,
635 ptrdiff_t *info
636);
637
638/* Source: cgelss.f */
639#define cgelss FORTRAN_WRAPPER(cgelss)
640extern void cgelss(
641 const ptrdiff_t *m,
642 const ptrdiff_t *n,
643 const ptrdiff_t *nrhs,
644 float *a,
645 const ptrdiff_t *lda,
646 float *b,
647 const ptrdiff_t *ldb,
648 float *s,
649 const float *rcond,
650 ptrdiff_t *rank,
651 float *work,
652 const ptrdiff_t *lwork,
653 float *rwork,
654 ptrdiff_t *info
655);
656
657/* Source: cgelsx.f */
658#define cgelsx FORTRAN_WRAPPER(cgelsx)
659extern void cgelsx(
660 const ptrdiff_t *m,
661 const ptrdiff_t *n,
662 const ptrdiff_t *nrhs,
663 float *a,
664 const ptrdiff_t *lda,
665 float *b,
666 const ptrdiff_t *ldb,
667 ptrdiff_t *jpvt,
668 const float *rcond,
669 ptrdiff_t *rank,
670 float *work,
671 float *rwork,
672 ptrdiff_t *info
673);
674
675/* Source: cgelsy.f */
676#define cgelsy FORTRAN_WRAPPER(cgelsy)
677extern void cgelsy(
678 const ptrdiff_t *m,
679 const ptrdiff_t *n,
680 const ptrdiff_t *nrhs,
681 float *a,
682 const ptrdiff_t *lda,
683 float *b,
684 const ptrdiff_t *ldb,
685 ptrdiff_t *jpvt,
686 const float *rcond,
687 ptrdiff_t *rank,
688 float *work,
689 const ptrdiff_t *lwork,
690 float *rwork,
691 ptrdiff_t *info
692);
693
694/* Source: cgemqrt.f */
695#define cgemqrt FORTRAN_WRAPPER(cgemqrt)
696extern void cgemqrt(
697 const char *side,
698 const char *trans,
699 const ptrdiff_t *m,
700 const ptrdiff_t *n,
701 const ptrdiff_t *k,
702 const ptrdiff_t *nb,
703 const float *v,
704 const ptrdiff_t *ldv,
705 const float *t,
706 const ptrdiff_t *ldt,
707 float *c,
708 const ptrdiff_t *ldc,
709 float *work,
710 ptrdiff_t *info
711);
712
713/* Source: cgeql2.f */
714#define cgeql2 FORTRAN_WRAPPER(cgeql2)
715extern void cgeql2(
716 const ptrdiff_t *m,
717 const ptrdiff_t *n,
718 float *a,
719 const ptrdiff_t *lda,
720 float *tau,
721 float *work,
722 ptrdiff_t *info
723);
724
725/* Source: cgeqlf.f */
726#define cgeqlf FORTRAN_WRAPPER(cgeqlf)
727extern void cgeqlf(
728 const ptrdiff_t *m,
729 const ptrdiff_t *n,
730 float *a,
731 const ptrdiff_t *lda,
732 float *tau,
733 float *work,
734 const ptrdiff_t *lwork,
735 ptrdiff_t *info
736);
737
738/* Source: cgeqp3.f */
739#define cgeqp3 FORTRAN_WRAPPER(cgeqp3)
740extern void cgeqp3(
741 const ptrdiff_t *m,
742 const ptrdiff_t *n,
743 float *a,
744 const ptrdiff_t *lda,
745 ptrdiff_t *jpvt,
746 float *tau,
747 float *work,
748 const ptrdiff_t *lwork,
749 float *rwork,
750 ptrdiff_t *info
751);
752
753/* Source: cgeqpf.f */
754#define cgeqpf FORTRAN_WRAPPER(cgeqpf)
755extern void cgeqpf(
756 const ptrdiff_t *m,
757 const ptrdiff_t *n,
758 float *a,
759 const ptrdiff_t *lda,
760 ptrdiff_t *jpvt,
761 float *tau,
762 float *work,
763 float *rwork,
764 ptrdiff_t *info
765);
766
767/* Source: cgeqr2.f */
768#define cgeqr2 FORTRAN_WRAPPER(cgeqr2)
769extern void cgeqr2(
770 const ptrdiff_t *m,
771 const ptrdiff_t *n,
772 float *a,
773 const ptrdiff_t *lda,
774 float *tau,
775 float *work,
776 ptrdiff_t *info
777);
778
779/* Source: cgeqr2p.f */
780#define cgeqr2p FORTRAN_WRAPPER(cgeqr2p)
781extern void cgeqr2p(
782 const ptrdiff_t *m,
783 const ptrdiff_t *n,
784 float *a,
785 const ptrdiff_t *lda,
786 float *tau,
787 float *work,
788 ptrdiff_t *info
789);
790
791/* Source: cgeqrf.f */
792#define cgeqrf FORTRAN_WRAPPER(cgeqrf)
793extern void cgeqrf(
794 const ptrdiff_t *m,
795 const ptrdiff_t *n,
796 float *a,
797 const ptrdiff_t *lda,
798 float *tau,
799 float *work,
800 const ptrdiff_t *lwork,
801 ptrdiff_t *info
802);
803
804/* Source: cgeqrfp.f */
805#define cgeqrfp FORTRAN_WRAPPER(cgeqrfp)
806extern void cgeqrfp(
807 const ptrdiff_t *m,
808 const ptrdiff_t *n,
809 float *a,
810 const ptrdiff_t *lda,
811 float *tau,
812 float *work,
813 const ptrdiff_t *lwork,
814 ptrdiff_t *info
815);
816
817/* Source: cgeqrt.f */
818#define cgeqrt FORTRAN_WRAPPER(cgeqrt)
819extern void cgeqrt(
820 const ptrdiff_t *m,
821 const ptrdiff_t *n,
822 const ptrdiff_t *nb,
823 float *a,
824 const ptrdiff_t *lda,
825 float *t,
826 const ptrdiff_t *ldt,
827 float *work,
828 ptrdiff_t *info
829);
830
831/* Source: cgeqrt2.f */
832#define cgeqrt2 FORTRAN_WRAPPER(cgeqrt2)
833extern void cgeqrt2(
834 const ptrdiff_t *m,
835 const ptrdiff_t *n,
836 float *a,
837 const ptrdiff_t *lda,
838 float *t,
839 const ptrdiff_t *ldt,
840 ptrdiff_t *info
841);
842
843/* Source: cgeqrt3.f */
844#define cgeqrt3 FORTRAN_WRAPPER(cgeqrt3)
845extern void cgeqrt3(
846 const ptrdiff_t *m,
847 const ptrdiff_t *n,
848 float *a,
849 const ptrdiff_t *lda,
850 float *t,
851 const ptrdiff_t *ldt,
852 ptrdiff_t *info
853);
854
855/* Source: cgerfs.f */
856#define cgerfs FORTRAN_WRAPPER(cgerfs)
857extern void cgerfs(
858 const char *trans,
859 const ptrdiff_t *n,
860 const ptrdiff_t *nrhs,
861 const float *a,
862 const ptrdiff_t *lda,
863 const float *af,
864 const ptrdiff_t *ldaf,
865 const ptrdiff_t *ipiv,
866 const float *b,
867 const ptrdiff_t *ldb,
868 float *x,
869 const ptrdiff_t *ldx,
870 float *ferr,
871 float *berr,
872 float *work,
873 float *rwork,
874 ptrdiff_t *info
875);
876
877/* Source: cgerq2.f */
878#define cgerq2 FORTRAN_WRAPPER(cgerq2)
879extern void cgerq2(
880 const ptrdiff_t *m,
881 const ptrdiff_t *n,
882 float *a,
883 const ptrdiff_t *lda,
884 float *tau,
885 float *work,
886 ptrdiff_t *info
887);
888
889/* Source: cgerqf.f */
890#define cgerqf FORTRAN_WRAPPER(cgerqf)
891extern void cgerqf(
892 const ptrdiff_t *m,
893 const ptrdiff_t *n,
894 float *a,
895 const ptrdiff_t *lda,
896 float *tau,
897 float *work,
898 const ptrdiff_t *lwork,
899 ptrdiff_t *info
900);
901
902/* Source: cgesc2.f */
903#define cgesc2 FORTRAN_WRAPPER(cgesc2)
904extern void cgesc2(
905 const ptrdiff_t *n,
906 const float *a,
907 const ptrdiff_t *lda,
908 float *rhs,
909 const ptrdiff_t *ipiv,
910 const ptrdiff_t *jpiv,
911 float *scale
912);
913
914/* Source: cgesdd.f */
915#define cgesdd FORTRAN_WRAPPER(cgesdd)
916extern void cgesdd(
917 const char *jobz,
918 const ptrdiff_t *m,
919 const ptrdiff_t *n,
920 float *a,
921 const ptrdiff_t *lda,
922 float *s,
923 float *u,
924 const ptrdiff_t *ldu,
925 float *vt,
926 const ptrdiff_t *ldvt,
927 float *work,
928 const ptrdiff_t *lwork,
929 float *rwork,
930 ptrdiff_t *iwork,
931 ptrdiff_t *info
932);
933
934/* Source: cgesv.f */
935#define cgesv FORTRAN_WRAPPER(cgesv)
936extern void cgesv(
937 const ptrdiff_t *n,
938 const ptrdiff_t *nrhs,
939 float *a,
940 const ptrdiff_t *lda,
941 ptrdiff_t *ipiv,
942 float *b,
943 const ptrdiff_t *ldb,
944 ptrdiff_t *info
945);
946
947/* Source: cgesvd.f */
948#define cgesvd FORTRAN_WRAPPER(cgesvd)
949extern void cgesvd(
950 const char *jobu,
951 const char *jobvt,
952 const ptrdiff_t *m,
953 const ptrdiff_t *n,
954 float *a,
955 const ptrdiff_t *lda,
956 float *s,
957 float *u,
958 const ptrdiff_t *ldu,
959 float *vt,
960 const ptrdiff_t *ldvt,
961 float *work,
962 const ptrdiff_t *lwork,
963 float *rwork,
964 ptrdiff_t *info
965);
966
967/* Source: cgesvx.f */
968#define cgesvx FORTRAN_WRAPPER(cgesvx)
969extern void cgesvx(
970 const char *fact,
971 const char *trans,
972 const ptrdiff_t *n,
973 const ptrdiff_t *nrhs,
974 float *a,
975 const ptrdiff_t *lda,
976 float *af,
977 const ptrdiff_t *ldaf,
978 ptrdiff_t *ipiv,
979 char *equed,
980 float *r,
981 float *c,
982 float *b,
983 const ptrdiff_t *ldb,
984 float *x,
985 const ptrdiff_t *ldx,
986 float *rcond,
987 float *ferr,
988 float *berr,
989 float *work,
990 float *rwork,
991 ptrdiff_t *info
992);
993
994/* Source: cgetc2.f */
995#define cgetc2 FORTRAN_WRAPPER(cgetc2)
996extern void cgetc2(
997 const ptrdiff_t *n,
998 float *a,
999 const ptrdiff_t *lda,
1000 ptrdiff_t *ipiv,
1001 ptrdiff_t *jpiv,
1002 ptrdiff_t *info
1003);
1004
1005/* Source: cgetf2.f */
1006#define cgetf2 FORTRAN_WRAPPER(cgetf2)
1007extern void cgetf2(
1008 const ptrdiff_t *m,
1009 const ptrdiff_t *n,
1010 float *a,
1011 const ptrdiff_t *lda,
1012 ptrdiff_t *ipiv,
1013 ptrdiff_t *info
1014);
1015
1016/* Source: cgetrf.f */
1017#define cgetrf FORTRAN_WRAPPER(cgetrf)
1018extern void cgetrf(
1019 const ptrdiff_t *m,
1020 const ptrdiff_t *n,
1021 float *a,
1022 const ptrdiff_t *lda,
1023 ptrdiff_t *ipiv,
1024 ptrdiff_t *info
1025);
1026
1027/* Source: cgetri.f */
1028#define cgetri FORTRAN_WRAPPER(cgetri)
1029extern void cgetri(
1030 const ptrdiff_t *n,
1031 float *a,
1032 const ptrdiff_t *lda,
1033 const ptrdiff_t *ipiv,
1034 float *work,
1035 const ptrdiff_t *lwork,
1036 ptrdiff_t *info
1037);
1038
1039/* Source: cgetrs.f */
1040#define cgetrs FORTRAN_WRAPPER(cgetrs)
1041extern void cgetrs(
1042 const char *trans,
1043 const ptrdiff_t *n,
1044 const ptrdiff_t *nrhs,
1045 const float *a,
1046 const ptrdiff_t *lda,
1047 const ptrdiff_t *ipiv,
1048 float *b,
1049 const ptrdiff_t *ldb,
1050 ptrdiff_t *info
1051);
1052
1053/* Source: cggbak.f */
1054#define cggbak FORTRAN_WRAPPER(cggbak)
1055extern void cggbak(
1056 const char *job,
1057 const char *side,
1058 const ptrdiff_t *n,
1059 const ptrdiff_t *ilo,
1060 const ptrdiff_t *ihi,
1061 const float *lscale,
1062 const float *rscale,
1063 const ptrdiff_t *m,
1064 float *v,
1065 const ptrdiff_t *ldv,
1066 ptrdiff_t *info
1067);
1068
1069/* Source: cggbal.f */
1070#define cggbal FORTRAN_WRAPPER(cggbal)
1071extern void cggbal(
1072 const char *job,
1073 const ptrdiff_t *n,
1074 float *a,
1075 const ptrdiff_t *lda,
1076 float *b,
1077 const ptrdiff_t *ldb,
1078 ptrdiff_t *ilo,
1079 ptrdiff_t *ihi,
1080 float *lscale,
1081 float *rscale,
1082 float *work,
1083 ptrdiff_t *info
1084);
1085
1086/* Source: cgges.f */
1087#define cgges FORTRAN_WRAPPER(cgges)
1088extern void cgges(
1089 const char *jobvsl,
1090 const char *jobvsr,
1091 const char *sort,
1092 ptrdiff_t (*selctg)(),
1093 const ptrdiff_t *n,
1094 float *a,
1095 const ptrdiff_t *lda,
1096 float *b,
1097 const ptrdiff_t *ldb,
1098 ptrdiff_t *sdim,
1099 float *alpha,
1100 float *beta,
1101 float *vsl,
1102 const ptrdiff_t *ldvsl,
1103 float *vsr,
1104 const ptrdiff_t *ldvsr,
1105 float *work,
1106 const ptrdiff_t *lwork,
1107 float *rwork,
1108 ptrdiff_t *bwork,
1109 ptrdiff_t *info
1110);
1111
1112/* Source: cggesx.f */
1113#define cggesx FORTRAN_WRAPPER(cggesx)
1114extern void cggesx(
1115 const char *jobvsl,
1116 const char *jobvsr,
1117 const char *sort,
1118 ptrdiff_t (*selctg)(),
1119 const char *sense,
1120 const ptrdiff_t *n,
1121 float *a,
1122 const ptrdiff_t *lda,
1123 float *b,
1124 const ptrdiff_t *ldb,
1125 ptrdiff_t *sdim,
1126 float *alpha,
1127 float *beta,
1128 float *vsl,
1129 const ptrdiff_t *ldvsl,
1130 float *vsr,
1131 const ptrdiff_t *ldvsr,
1132 float *rconde,
1133 float *rcondv,
1134 float *work,
1135 const ptrdiff_t *lwork,
1136 float *rwork,
1137 ptrdiff_t *iwork,
1138 const ptrdiff_t *liwork,
1139 ptrdiff_t *bwork,
1140 ptrdiff_t *info
1141);
1142
1143/* Source: cggev.f */
1144#define cggev FORTRAN_WRAPPER(cggev)
1145extern void cggev(
1146 const char *jobvl,
1147 const char *jobvr,
1148 const ptrdiff_t *n,
1149 float *a,
1150 const ptrdiff_t *lda,
1151 float *b,
1152 const ptrdiff_t *ldb,
1153 float *alpha,
1154 float *beta,
1155 float *vl,
1156 const ptrdiff_t *ldvl,
1157 float *vr,
1158 const ptrdiff_t *ldvr,
1159 float *work,
1160 const ptrdiff_t *lwork,
1161 float *rwork,
1162 ptrdiff_t *info
1163);
1164
1165/* Source: cggevx.f */
1166#define cggevx FORTRAN_WRAPPER(cggevx)
1167extern void cggevx(
1168 const char *balanc,
1169 const char *jobvl,
1170 const char *jobvr,
1171 const char *sense,
1172 const ptrdiff_t *n,
1173 float *a,
1174 const ptrdiff_t *lda,
1175 float *b,
1176 const ptrdiff_t *ldb,
1177 float *alpha,
1178 float *beta,
1179 float *vl,
1180 const ptrdiff_t *ldvl,
1181 float *vr,
1182 const ptrdiff_t *ldvr,
1183 ptrdiff_t *ilo,
1184 ptrdiff_t *ihi,
1185 float *lscale,
1186 float *rscale,
1187 float *abnrm,
1188 float *bbnrm,
1189 float *rconde,
1190 float *rcondv,
1191 float *work,
1192 const ptrdiff_t *lwork,
1193 float *rwork,
1194 ptrdiff_t *iwork,
1195 ptrdiff_t *bwork,
1196 ptrdiff_t *info
1197);
1198
1199/* Source: cggglm.f */
1200#define cggglm FORTRAN_WRAPPER(cggglm)
1201extern void cggglm(
1202 const ptrdiff_t *n,
1203 const ptrdiff_t *m,
1204 const ptrdiff_t *p,
1205 float *a,
1206 const ptrdiff_t *lda,
1207 float *b,
1208 const ptrdiff_t *ldb,
1209 float *d,
1210 float *x,
1211 float *y,
1212 float *work,
1213 const ptrdiff_t *lwork,
1214 ptrdiff_t *info
1215);
1216
1217/* Source: cgghrd.f */
1218#define cgghrd FORTRAN_WRAPPER(cgghrd)
1219extern void cgghrd(
1220 const char *compq,
1221 const char *compz,
1222 const ptrdiff_t *n,
1223 const ptrdiff_t *ilo,
1224 const ptrdiff_t *ihi,
1225 float *a,
1226 const ptrdiff_t *lda,
1227 float *b,
1228 const ptrdiff_t *ldb,
1229 float *q,
1230 const ptrdiff_t *ldq,
1231 float *z,
1232 const ptrdiff_t *ldz,
1233 ptrdiff_t *info
1234);
1235
1236/* Source: cgglse.f */
1237#define cgglse FORTRAN_WRAPPER(cgglse)
1238extern void cgglse(
1239 const ptrdiff_t *m,
1240 const ptrdiff_t *n,
1241 const ptrdiff_t *p,
1242 float *a,
1243 const ptrdiff_t *lda,
1244 float *b,
1245 const ptrdiff_t *ldb,
1246 float *c,
1247 float *d,
1248 float *x,
1249 float *work,
1250 const ptrdiff_t *lwork,
1251 ptrdiff_t *info
1252);
1253
1254/* Source: cggqrf.f */
1255#define cggqrf FORTRAN_WRAPPER(cggqrf)
1256extern void cggqrf(
1257 const ptrdiff_t *n,
1258 const ptrdiff_t *m,
1259 const ptrdiff_t *p,
1260 float *a,
1261 const ptrdiff_t *lda,
1262 float *taua,
1263 float *b,
1264 const ptrdiff_t *ldb,
1265 float *taub,
1266 float *work,
1267 const ptrdiff_t *lwork,
1268 ptrdiff_t *info
1269);
1270
1271/* Source: cggrqf.f */
1272#define cggrqf FORTRAN_WRAPPER(cggrqf)
1273extern void cggrqf(
1274 const ptrdiff_t *m,
1275 const ptrdiff_t *p,
1276 const ptrdiff_t *n,
1277 float *a,
1278 const ptrdiff_t *lda,
1279 float *taua,
1280 float *b,
1281 const ptrdiff_t *ldb,
1282 float *taub,
1283 float *work,
1284 const ptrdiff_t *lwork,
1285 ptrdiff_t *info
1286);
1287
1288/* Source: cggsvd.f */
1289#define cggsvd FORTRAN_WRAPPER(cggsvd)
1290extern void cggsvd(
1291 const char *jobu,
1292 const char *jobv,
1293 const char *jobq,
1294 const ptrdiff_t *m,
1295 const ptrdiff_t *n,
1296 const ptrdiff_t *p,
1297 ptrdiff_t *k,
1298 ptrdiff_t *l,
1299 float *a,
1300 const ptrdiff_t *lda,
1301 float *b,
1302 const ptrdiff_t *ldb,
1303 float *alpha,
1304 float *beta,
1305 float *u,
1306 const ptrdiff_t *ldu,
1307 float *v,
1308 const ptrdiff_t *ldv,
1309 float *q,
1310 const ptrdiff_t *ldq,
1311 float *work,
1312 float *rwork,
1313 ptrdiff_t *iwork,
1314 ptrdiff_t *info
1315);
1316
1317/* Source: cggsvp.f */
1318#define cggsvp FORTRAN_WRAPPER(cggsvp)
1319extern void cggsvp(
1320 const char *jobu,
1321 const char *jobv,
1322 const char *jobq,
1323 const ptrdiff_t *m,
1324 const ptrdiff_t *p,
1325 const ptrdiff_t *n,
1326 float *a,
1327 const ptrdiff_t *lda,
1328 float *b,
1329 const ptrdiff_t *ldb,
1330 const float *tola,
1331 const float *tolb,
1332 ptrdiff_t *k,
1333 ptrdiff_t *l,
1334 float *u,
1335 const ptrdiff_t *ldu,
1336 float *v,
1337 const ptrdiff_t *ldv,
1338 float *q,
1339 const ptrdiff_t *ldq,
1340 ptrdiff_t *iwork,
1341 float *rwork,
1342 float *tau,
1343 float *work,
1344 ptrdiff_t *info
1345);
1346
1347/* Source: cgtcon.f */
1348#define cgtcon FORTRAN_WRAPPER(cgtcon)
1349extern void cgtcon(
1350 const char *norm,
1351 const ptrdiff_t *n,
1352 const float *dl,
1353 const float *d,
1354 const float *du,
1355 const float *du2,
1356 const ptrdiff_t *ipiv,
1357 const float *anorm,
1358 float *rcond,
1359 float *work,
1360 ptrdiff_t *info
1361);
1362
1363/* Source: cgtrfs.f */
1364#define cgtrfs FORTRAN_WRAPPER(cgtrfs)
1365extern void cgtrfs(
1366 const char *trans,
1367 const ptrdiff_t *n,
1368 const ptrdiff_t *nrhs,
1369 const float *dl,
1370 const float *d,
1371 const float *du,
1372 const float *dlf,
1373 const float *df,
1374 const float *duf,
1375 const float *du2,
1376 const ptrdiff_t *ipiv,
1377 const float *b,
1378 const ptrdiff_t *ldb,
1379 float *x,
1380 const ptrdiff_t *ldx,
1381 float *ferr,
1382 float *berr,
1383 float *work,
1384 float *rwork,
1385 ptrdiff_t *info
1386);
1387
1388/* Source: cgtsv.f */
1389#define cgtsv FORTRAN_WRAPPER(cgtsv)
1390extern void cgtsv(
1391 const ptrdiff_t *n,
1392 const ptrdiff_t *nrhs,
1393 float *dl,
1394 float *d,
1395 float *du,
1396 float *b,
1397 const ptrdiff_t *ldb,
1398 ptrdiff_t *info
1399);
1400
1401/* Source: cgtsvx.f */
1402#define cgtsvx FORTRAN_WRAPPER(cgtsvx)
1403extern void cgtsvx(
1404 const char *fact,
1405 const char *trans,
1406 const ptrdiff_t *n,
1407 const ptrdiff_t *nrhs,
1408 const float *dl,
1409 const float *d,
1410 const float *du,
1411 float *dlf,
1412 float *df,
1413 float *duf,
1414 float *du2,
1415 ptrdiff_t *ipiv,
1416 const float *b,
1417 const ptrdiff_t *ldb,
1418 float *x,
1419 const ptrdiff_t *ldx,
1420 float *rcond,
1421 float *ferr,
1422 float *berr,
1423 float *work,
1424 float *rwork,
1425 ptrdiff_t *info
1426);
1427
1428/* Source: cgttrf.f */
1429#define cgttrf FORTRAN_WRAPPER(cgttrf)
1430extern void cgttrf(
1431 const ptrdiff_t *n,
1432 float *dl,
1433 float *d,
1434 float *du,
1435 float *du2,
1436 ptrdiff_t *ipiv,
1437 ptrdiff_t *info
1438);
1439
1440/* Source: cgttrs.f */
1441#define cgttrs FORTRAN_WRAPPER(cgttrs)
1442extern void cgttrs(
1443 const char *trans,
1444 const ptrdiff_t *n,
1445 const ptrdiff_t *nrhs,
1446 const float *dl,
1447 const float *d,
1448 const float *du,
1449 const float *du2,
1450 const ptrdiff_t *ipiv,
1451 float *b,
1452 const ptrdiff_t *ldb,
1453 ptrdiff_t *info
1454);
1455
1456/* Source: cgtts2.f */
1457#define cgtts2 FORTRAN_WRAPPER(cgtts2)
1458extern void cgtts2(
1459 const ptrdiff_t *itrans,
1460 const ptrdiff_t *n,
1461 const ptrdiff_t *nrhs,
1462 const float *dl,
1463 const float *d,
1464 const float *du,
1465 const float *du2,
1466 const ptrdiff_t *ipiv,
1467 float *b,
1468 const ptrdiff_t *ldb
1469);
1470
1471/* Source: chbev.f */
1472#define chbev FORTRAN_WRAPPER(chbev)
1473extern void chbev(
1474 const char *jobz,
1475 const char *uplo,
1476 const ptrdiff_t *n,
1477 const ptrdiff_t *kd,
1478 float *ab,
1479 const ptrdiff_t *ldab,
1480 float *w,
1481 float *z,
1482 const ptrdiff_t *ldz,
1483 float *work,
1484 float *rwork,
1485 ptrdiff_t *info
1486);
1487
1488/* Source: chbevd.f */
1489#define chbevd FORTRAN_WRAPPER(chbevd)
1490extern void chbevd(
1491 const char *jobz,
1492 const char *uplo,
1493 const ptrdiff_t *n,
1494 const ptrdiff_t *kd,
1495 float *ab,
1496 const ptrdiff_t *ldab,
1497 float *w,
1498 float *z,
1499 const ptrdiff_t *ldz,
1500 float *work,
1501 const ptrdiff_t *lwork,
1502 float *rwork,
1503 const ptrdiff_t *lrwork,
1504 ptrdiff_t *iwork,
1505 const ptrdiff_t *liwork,
1506 ptrdiff_t *info
1507);
1508
1509/* Source: chbevx.f */
1510#define chbevx FORTRAN_WRAPPER(chbevx)
1511extern void chbevx(
1512 const char *jobz,
1513 const char *range,
1514 const char *uplo,
1515 const ptrdiff_t *n,
1516 const ptrdiff_t *kd,
1517 float *ab,
1518 const ptrdiff_t *ldab,
1519 float *q,
1520 const ptrdiff_t *ldq,
1521 const float *vl,
1522 const float *vu,
1523 const ptrdiff_t *il,
1524 const ptrdiff_t *iu,
1525 const float *abstol,
1526 ptrdiff_t *m,
1527 float *w,
1528 float *z,
1529 const ptrdiff_t *ldz,
1530 float *work,
1531 float *rwork,
1532 ptrdiff_t *iwork,
1533 ptrdiff_t *ifail,
1534 ptrdiff_t *info
1535);
1536
1537/* Source: chbgst.f */
1538#define chbgst FORTRAN_WRAPPER(chbgst)
1539extern void chbgst(
1540 const char *vect,
1541 const char *uplo,
1542 const ptrdiff_t *n,
1543 const ptrdiff_t *ka,
1544 const ptrdiff_t *kb,
1545 float *ab,
1546 const ptrdiff_t *ldab,
1547 const float *bb,
1548 const ptrdiff_t *ldbb,
1549 float *x,
1550 const ptrdiff_t *ldx,
1551 float *work,
1552 float *rwork,
1553 ptrdiff_t *info
1554);
1555
1556/* Source: chbgv.f */
1557#define chbgv FORTRAN_WRAPPER(chbgv)
1558extern void chbgv(
1559 const char *jobz,
1560 const char *uplo,
1561 const ptrdiff_t *n,
1562 const ptrdiff_t *ka,
1563 const ptrdiff_t *kb,
1564 float *ab,
1565 const ptrdiff_t *ldab,
1566 float *bb,
1567 const ptrdiff_t *ldbb,
1568 float *w,
1569 float *z,
1570 const ptrdiff_t *ldz,
1571 float *work,
1572 float *rwork,
1573 ptrdiff_t *info
1574);
1575
1576/* Source: chbgvd.f */
1577#define chbgvd FORTRAN_WRAPPER(chbgvd)
1578extern void chbgvd(
1579 const char *jobz,
1580 const char *uplo,
1581 const ptrdiff_t *n,
1582 const ptrdiff_t *ka,
1583 const ptrdiff_t *kb,
1584 float *ab,
1585 const ptrdiff_t *ldab,
1586 float *bb,
1587 const ptrdiff_t *ldbb,
1588 float *w,
1589 float *z,
1590 const ptrdiff_t *ldz,
1591 float *work,
1592 const ptrdiff_t *lwork,
1593 float *rwork,
1594 const ptrdiff_t *lrwork,
1595 ptrdiff_t *iwork,
1596 const ptrdiff_t *liwork,
1597 ptrdiff_t *info
1598);
1599
1600/* Source: chbgvx.f */
1601#define chbgvx FORTRAN_WRAPPER(chbgvx)
1602extern void chbgvx(
1603 const char *jobz,
1604 const char *range,
1605 const char *uplo,
1606 const ptrdiff_t *n,
1607 const ptrdiff_t *ka,
1608 const ptrdiff_t *kb,
1609 float *ab,
1610 const ptrdiff_t *ldab,
1611 float *bb,
1612 const ptrdiff_t *ldbb,
1613 float *q,
1614 const ptrdiff_t *ldq,
1615 const float *vl,
1616 const float *vu,
1617 const ptrdiff_t *il,
1618 const ptrdiff_t *iu,
1619 const float *abstol,
1620 ptrdiff_t *m,
1621 float *w,
1622 float *z,
1623 const ptrdiff_t *ldz,
1624 float *work,
1625 float *rwork,
1626 ptrdiff_t *iwork,
1627 ptrdiff_t *ifail,
1628 ptrdiff_t *info
1629);
1630
1631/* Source: chbtrd.f */
1632#define chbtrd FORTRAN_WRAPPER(chbtrd)
1633extern void chbtrd(
1634 const char *vect,
1635 const char *uplo,
1636 const ptrdiff_t *n,
1637 const ptrdiff_t *kd,
1638 float *ab,
1639 const ptrdiff_t *ldab,
1640 float *d,
1641 float *e,
1642 float *q,
1643 const ptrdiff_t *ldq,
1644 float *work,
1645 ptrdiff_t *info
1646);
1647
1648/* Source: checon.f */
1649#define checon FORTRAN_WRAPPER(checon)
1650extern void checon(
1651 const char *uplo,
1652 const ptrdiff_t *n,
1653 const float *a,
1654 const ptrdiff_t *lda,
1655 const ptrdiff_t *ipiv,
1656 const float *anorm,
1657 float *rcond,
1658 float *work,
1659 ptrdiff_t *info
1660);
1661
1662/* Source: checon_rook.f */
1663#define checon_rook FORTRAN_WRAPPER(checon_rook)
1664extern void checon_rook(
1665 const char *uplo,
1666 const ptrdiff_t *n,
1667 const float *a,
1668 const ptrdiff_t *lda,
1669 const ptrdiff_t *ipiv,
1670 const float *anorm,
1671 float *rcond,
1672 float *work,
1673 ptrdiff_t *info
1674);
1675
1676/* Source: cheequb.f */
1677#define cheequb FORTRAN_WRAPPER(cheequb)
1678extern void cheequb(
1679 char *uplo,
1680 const ptrdiff_t *n,
1681 const float *a,
1682 const ptrdiff_t *lda,
1683 float *s,
1684 float *scond,
1685 float *amax,
1686 float *work,
1687 ptrdiff_t *info
1688);
1689
1690/* Source: cheev.f */
1691#define cheev FORTRAN_WRAPPER(cheev)
1692extern void cheev(
1693 const char *jobz,
1694 const char *uplo,
1695 const ptrdiff_t *n,
1696 float *a,
1697 const ptrdiff_t *lda,
1698 float *w,
1699 float *work,
1700 const ptrdiff_t *lwork,
1701 float *rwork,
1702 ptrdiff_t *info
1703);
1704
1705/* Source: cheevd.f */
1706#define cheevd FORTRAN_WRAPPER(cheevd)
1707extern void cheevd(
1708 const char *jobz,
1709 const char *uplo,
1710 const ptrdiff_t *n,
1711 float *a,
1712 const ptrdiff_t *lda,
1713 float *w,
1714 float *work,
1715 const ptrdiff_t *lwork,
1716 float *rwork,
1717 const ptrdiff_t *lrwork,
1718 ptrdiff_t *iwork,
1719 const ptrdiff_t *liwork,
1720 ptrdiff_t *info
1721);
1722
1723/* Source: cheevr.f */
1724#define cheevr FORTRAN_WRAPPER(cheevr)
1725extern void cheevr(
1726 const char *jobz,
1727 const char *range,
1728 const char *uplo,
1729 const ptrdiff_t *n,
1730 float *a,
1731 const ptrdiff_t *lda,
1732 const float *vl,
1733 const float *vu,
1734 const ptrdiff_t *il,
1735 const ptrdiff_t *iu,
1736 const float *abstol,
1737 ptrdiff_t *m,
1738 float *w,
1739 float *z,
1740 const ptrdiff_t *ldz,
1741 ptrdiff_t *isuppz,
1742 float *work,
1743 const ptrdiff_t *lwork,
1744 float *rwork,
1745 const ptrdiff_t *lrwork,
1746 ptrdiff_t *iwork,
1747 const ptrdiff_t *liwork,
1748 ptrdiff_t *info
1749);
1750
1751/* Source: cheevx.f */
1752#define cheevx FORTRAN_WRAPPER(cheevx)
1753extern void cheevx(
1754 const char *jobz,
1755 const char *range,
1756 const char *uplo,
1757 const ptrdiff_t *n,
1758 float *a,
1759 const ptrdiff_t *lda,
1760 const float *vl,
1761 const float *vu,
1762 const ptrdiff_t *il,
1763 const ptrdiff_t *iu,
1764 const float *abstol,
1765 ptrdiff_t *m,
1766 float *w,
1767 float *z,
1768 const ptrdiff_t *ldz,
1769 float *work,
1770 const ptrdiff_t *lwork,
1771 float *rwork,
1772 ptrdiff_t *iwork,
1773 ptrdiff_t *ifail,
1774 ptrdiff_t *info
1775);
1776
1777/* Source: chegs2.f */
1778#define chegs2 FORTRAN_WRAPPER(chegs2)
1779extern void chegs2(
1780 const ptrdiff_t *itype,
1781 const char *uplo,
1782 const ptrdiff_t *n,
1783 float *a,
1784 const ptrdiff_t *lda,
1785 const float *b,
1786 const ptrdiff_t *ldb,
1787 ptrdiff_t *info
1788);
1789
1790/* Source: chegst.f */
1791#define chegst FORTRAN_WRAPPER(chegst)
1792extern void chegst(
1793 const ptrdiff_t *itype,
1794 const char *uplo,
1795 const ptrdiff_t *n,
1796 float *a,
1797 const ptrdiff_t *lda,
1798 const float *b,
1799 const ptrdiff_t *ldb,
1800 ptrdiff_t *info
1801);
1802
1803/* Source: chegv.f */
1804#define chegv FORTRAN_WRAPPER(chegv)
1805extern void chegv(
1806 const ptrdiff_t *itype,
1807 const char *jobz,
1808 const char *uplo,
1809 const ptrdiff_t *n,
1810 float *a,
1811 const ptrdiff_t *lda,
1812 float *b,
1813 const ptrdiff_t *ldb,
1814 float *w,
1815 float *work,
1816 const ptrdiff_t *lwork,
1817 float *rwork,
1818 ptrdiff_t *info
1819);
1820
1821/* Source: chegvd.f */
1822#define chegvd FORTRAN_WRAPPER(chegvd)
1823extern void chegvd(
1824 const ptrdiff_t *itype,
1825 const char *jobz,
1826 const char *uplo,
1827 const ptrdiff_t *n,
1828 float *a,
1829 const ptrdiff_t *lda,
1830 float *b,
1831 const ptrdiff_t *ldb,
1832 float *w,
1833 float *work,
1834 const ptrdiff_t *lwork,
1835 float *rwork,
1836 const ptrdiff_t *lrwork,
1837 ptrdiff_t *iwork,
1838 const ptrdiff_t *liwork,
1839 ptrdiff_t *info
1840);
1841
1842/* Source: chegvx.f */
1843#define chegvx FORTRAN_WRAPPER(chegvx)
1844extern void chegvx(
1845 const ptrdiff_t *itype,
1846 const char *jobz,
1847 const char *range,
1848 const char *uplo,
1849 const ptrdiff_t *n,
1850 float *a,
1851 const ptrdiff_t *lda,
1852 float *b,
1853 const ptrdiff_t *ldb,
1854 const float *vl,
1855 const float *vu,
1856 const ptrdiff_t *il,
1857 const ptrdiff_t *iu,
1858 const float *abstol,
1859 ptrdiff_t *m,
1860 float *w,
1861 float *z,
1862 const ptrdiff_t *ldz,
1863 float *work,
1864 const ptrdiff_t *lwork,
1865 float *rwork,
1866 ptrdiff_t *iwork,
1867 ptrdiff_t *ifail,
1868 ptrdiff_t *info
1869);
1870
1871/* Source: cherfs.f */
1872#define cherfs FORTRAN_WRAPPER(cherfs)
1873extern void cherfs(
1874 const char *uplo,
1875 const ptrdiff_t *n,
1876 const ptrdiff_t *nrhs,
1877 const float *a,
1878 const ptrdiff_t *lda,
1879 const float *af,
1880 const ptrdiff_t *ldaf,
1881 const ptrdiff_t *ipiv,
1882 const float *b,
1883 const ptrdiff_t *ldb,
1884 float *x,
1885 const ptrdiff_t *ldx,
1886 float *ferr,
1887 float *berr,
1888 float *work,
1889 float *rwork,
1890 ptrdiff_t *info
1891);
1892
1893/* Source: chesv.f */
1894#define chesv FORTRAN_WRAPPER(chesv)
1895extern void chesv(
1896 const char *uplo,
1897 const ptrdiff_t *n,
1898 const ptrdiff_t *nrhs,
1899 float *a,
1900 const ptrdiff_t *lda,
1901 ptrdiff_t *ipiv,
1902 float *b,
1903 const ptrdiff_t *ldb,
1904 float *work,
1905 const ptrdiff_t *lwork,
1906 ptrdiff_t *info
1907);
1908
1909/* Source: chesv_rook.f */
1910#define chesv_rook FORTRAN_WRAPPER(chesv_rook)
1911extern void chesv_rook(
1912 const char *uplo,
1913 const ptrdiff_t *n,
1914 const ptrdiff_t *nrhs,
1915 float *a,
1916 const ptrdiff_t *lda,
1917 ptrdiff_t *ipiv,
1918 float *b,
1919 const ptrdiff_t *ldb,
1920 float *work,
1921 const ptrdiff_t *lwork,
1922 ptrdiff_t *info
1923);
1924
1925/* Source: chesvx.f */
1926#define chesvx FORTRAN_WRAPPER(chesvx)
1927extern void chesvx(
1928 const char *fact,
1929 const char *uplo,
1930 const ptrdiff_t *n,
1931 const ptrdiff_t *nrhs,
1932 const float *a,
1933 const ptrdiff_t *lda,
1934 float *af,
1935 const ptrdiff_t *ldaf,
1936 ptrdiff_t *ipiv,
1937 const float *b,
1938 const ptrdiff_t *ldb,
1939 float *x,
1940 const ptrdiff_t *ldx,
1941 float *rcond,
1942 float *ferr,
1943 float *berr,
1944 float *work,
1945 const ptrdiff_t *lwork,
1946 float *rwork,
1947 ptrdiff_t *info
1948);
1949
1950/* Source: cheswapr.f */
1951#define cheswapr FORTRAN_WRAPPER(cheswapr)
1952extern void cheswapr(
1953 const char *uplo,
1954 const ptrdiff_t *n,
1955 float *a,
1956 const ptrdiff_t *lda,
1957 const ptrdiff_t *i1,
1958 const ptrdiff_t *i2
1959);
1960
1961/* Source: chetd2.f */
1962#define chetd2 FORTRAN_WRAPPER(chetd2)
1963extern void chetd2(
1964 const char *uplo,
1965 const ptrdiff_t *n,
1966 float *a,
1967 const ptrdiff_t *lda,
1968 float *d,
1969 float *e,
1970 float *tau,
1971 ptrdiff_t *info
1972);
1973
1974/* Source: chetf2.f */
1975#define chetf2 FORTRAN_WRAPPER(chetf2)
1976extern void chetf2(
1977 const char *uplo,
1978 const ptrdiff_t *n,
1979 float *a,
1980 const ptrdiff_t *lda,
1981 ptrdiff_t *ipiv,
1982 ptrdiff_t *info
1983);
1984
1985/* Source: chetf2_rook.f */
1986#define chetf2_rook FORTRAN_WRAPPER(chetf2_rook)
1987extern void chetf2_rook(
1988 const char *uplo,
1989 const ptrdiff_t *n,
1990 float *a,
1991 const ptrdiff_t *lda,
1992 ptrdiff_t *ipiv,
1993 ptrdiff_t *info
1994);
1995
1996/* Source: chetrd.f */
1997#define chetrd FORTRAN_WRAPPER(chetrd)
1998extern void chetrd(
1999 const char *uplo,
2000 const ptrdiff_t *n,
2001 float *a,
2002 const ptrdiff_t *lda,
2003 float *d,
2004 float *e,
2005 float *tau,
2006 float *work,
2007 const ptrdiff_t *lwork,
2008 ptrdiff_t *info
2009);
2010
2011/* Source: chetrf.f */
2012#define chetrf FORTRAN_WRAPPER(chetrf)
2013extern void chetrf(
2014 const char *uplo,
2015 const ptrdiff_t *n,
2016 float *a,
2017 const ptrdiff_t *lda,
2018 ptrdiff_t *ipiv,
2019 float *work,
2020 const ptrdiff_t *lwork,
2021 ptrdiff_t *info
2022);
2023
2024/* Source: chetrf_rook.f */
2025#define chetrf_rook FORTRAN_WRAPPER(chetrf_rook)
2026extern void chetrf_rook(
2027 const char *uplo,
2028 const ptrdiff_t *n,
2029 float *a,
2030 const ptrdiff_t *lda,
2031 ptrdiff_t *ipiv,
2032 float *work,
2033 const ptrdiff_t *lwork,
2034 ptrdiff_t *info
2035);
2036
2037/* Source: chetri.f */
2038#define chetri FORTRAN_WRAPPER(chetri)
2039extern void chetri(
2040 const char *uplo,
2041 const ptrdiff_t *n,
2042 float *a,
2043 const ptrdiff_t *lda,
2044 const ptrdiff_t *ipiv,
2045 float *work,
2046 ptrdiff_t *info
2047);
2048
2049/* Source: chetri2.f */
2050#define chetri2 FORTRAN_WRAPPER(chetri2)
2051extern void chetri2(
2052 const char *uplo,
2053 const ptrdiff_t *n,
2054 float *a,
2055 const ptrdiff_t *lda,
2056 const ptrdiff_t *ipiv,
2057 float *work,
2058 const ptrdiff_t *lwork,
2059 ptrdiff_t *info
2060);
2061
2062/* Source: chetri2x.f */
2063#define chetri2x FORTRAN_WRAPPER(chetri2x)
2064extern void chetri2x(
2065 const char *uplo,
2066 const ptrdiff_t *n,
2067 float *a,
2068 const ptrdiff_t *lda,
2069 const ptrdiff_t *ipiv,
2070 float *work,
2071 const ptrdiff_t *nb,
2072 ptrdiff_t *info
2073);
2074
2075/* Source: chetri_rook.f */
2076#define chetri_rook FORTRAN_WRAPPER(chetri_rook)
2077extern void chetri_rook(
2078 const char *uplo,
2079 const ptrdiff_t *n,
2080 float *a,
2081 const ptrdiff_t *lda,
2082 const ptrdiff_t *ipiv,
2083 float *work,
2084 ptrdiff_t *info
2085);
2086
2087/* Source: chetrs.f */
2088#define chetrs FORTRAN_WRAPPER(chetrs)
2089extern void chetrs(
2090 const char *uplo,
2091 const ptrdiff_t *n,
2092 const ptrdiff_t *nrhs,
2093 const float *a,
2094 const ptrdiff_t *lda,
2095 const ptrdiff_t *ipiv,
2096 float *b,
2097 const ptrdiff_t *ldb,
2098 ptrdiff_t *info
2099);
2100
2101/* Source: chetrs2.f */
2102#define chetrs2 FORTRAN_WRAPPER(chetrs2)
2103extern void chetrs2(
2104 const char *uplo,
2105 const ptrdiff_t *n,
2106 const ptrdiff_t *nrhs,
2107 const float *a,
2108 const ptrdiff_t *lda,
2109 const ptrdiff_t *ipiv,
2110 float *b,
2111 const ptrdiff_t *ldb,
2112 float *work,
2113 ptrdiff_t *info
2114);
2115
2116/* Source: chetrs_rook.f */
2117#define chetrs_rook FORTRAN_WRAPPER(chetrs_rook)
2118extern void chetrs_rook(
2119 const char *uplo,
2120 const ptrdiff_t *n,
2121 const ptrdiff_t *nrhs,
2122 const float *a,
2123 const ptrdiff_t *lda,
2124 const ptrdiff_t *ipiv,
2125 float *b,
2126 const ptrdiff_t *ldb,
2127 ptrdiff_t *info
2128);
2129
2130/* Source: chfrk.f */
2131#define chfrk FORTRAN_WRAPPER(chfrk)
2132extern void chfrk(
2133 const char *transr,
2134 const char *uplo,
2135 const char *trans,
2136 const ptrdiff_t *n,
2137 const ptrdiff_t *k,
2138 const float *alpha,
2139 const float *a,
2140 const ptrdiff_t *lda,
2141 const float *beta,
2142 float *c
2143);
2144
2145/* Source: chgeqz.f */
2146#define chgeqz FORTRAN_WRAPPER(chgeqz)
2147extern void chgeqz(
2148 const char *job,
2149 const char *compq,
2150 const char *compz,
2151 const ptrdiff_t *n,
2152 const ptrdiff_t *ilo,
2153 const ptrdiff_t *ihi,
2154 float *h,
2155 const ptrdiff_t *ldh,
2156 float *t,
2157 const ptrdiff_t *ldt,
2158 float *alpha,
2159 float *beta,
2160 float *q,
2161 const ptrdiff_t *ldq,
2162 float *z,
2163 const ptrdiff_t *ldz,
2164 float *work,
2165 const ptrdiff_t *lwork,
2166 float *rwork,
2167 ptrdiff_t *info
2168);
2169
2170/* Source: chla_transtype.f */
2171#define chla_transtype FORTRAN_WRAPPER(chla_transtype)
2172extern char chla_transtype(
2173 const ptrdiff_t *trans
2174);
2175
2176/* Source: chpcon.f */
2177#define chpcon FORTRAN_WRAPPER(chpcon)
2178extern void chpcon(
2179 const char *uplo,
2180 const ptrdiff_t *n,
2181 const float *ap,
2182 const ptrdiff_t *ipiv,
2183 const float *anorm,
2184 float *rcond,
2185 float *work,
2186 ptrdiff_t *info
2187);
2188
2189/* Source: chpev.f */
2190#define chpev FORTRAN_WRAPPER(chpev)
2191extern void chpev(
2192 const char *jobz,
2193 const char *uplo,
2194 const ptrdiff_t *n,
2195 float *ap,
2196 float *w,
2197 float *z,
2198 const ptrdiff_t *ldz,
2199 float *work,
2200 float *rwork,
2201 ptrdiff_t *info
2202);
2203
2204/* Source: chpevd.f */
2205#define chpevd FORTRAN_WRAPPER(chpevd)
2206extern void chpevd(
2207 const char *jobz,
2208 const char *uplo,
2209 const ptrdiff_t *n,
2210 float *ap,
2211 float *w,
2212 float *z,
2213 const ptrdiff_t *ldz,
2214 float *work,
2215 const ptrdiff_t *lwork,
2216 float *rwork,
2217 const ptrdiff_t *lrwork,
2218 ptrdiff_t *iwork,
2219 const ptrdiff_t *liwork,
2220 ptrdiff_t *info
2221);
2222
2223/* Source: chpevx.f */
2224#define chpevx FORTRAN_WRAPPER(chpevx)
2225extern void chpevx(
2226 const char *jobz,
2227 const char *range,
2228 const char *uplo,
2229 const ptrdiff_t *n,
2230 float *ap,
2231 const float *vl,
2232 const float *vu,
2233 const ptrdiff_t *il,
2234 const ptrdiff_t *iu,
2235 const float *abstol,
2236 ptrdiff_t *m,
2237 float *w,
2238 float *z,
2239 const ptrdiff_t *ldz,
2240 float *work,
2241 float *rwork,
2242 ptrdiff_t *iwork,
2243 ptrdiff_t *ifail,
2244 ptrdiff_t *info
2245);
2246
2247/* Source: chpgst.f */
2248#define chpgst FORTRAN_WRAPPER(chpgst)
2249extern void chpgst(
2250 const ptrdiff_t *itype,
2251 const char *uplo,
2252 const ptrdiff_t *n,
2253 float *ap,
2254 const float *bp,
2255 ptrdiff_t *info
2256);
2257
2258/* Source: chpgv.f */
2259#define chpgv FORTRAN_WRAPPER(chpgv)
2260extern void chpgv(
2261 const ptrdiff_t *itype,
2262 const char *jobz,
2263 const char *uplo,
2264 const ptrdiff_t *n,
2265 float *ap,
2266 float *bp,
2267 float *w,
2268 float *z,
2269 const ptrdiff_t *ldz,
2270 float *work,
2271 float *rwork,
2272 ptrdiff_t *info
2273);
2274
2275/* Source: chpgvd.f */
2276#define chpgvd FORTRAN_WRAPPER(chpgvd)
2277extern void chpgvd(
2278 const ptrdiff_t *itype,
2279 const char *jobz,
2280 const char *uplo,
2281 const ptrdiff_t *n,
2282 float *ap,
2283 float *bp,
2284 float *w,
2285 float *z,
2286 const ptrdiff_t *ldz,
2287 float *work,
2288 const ptrdiff_t *lwork,
2289 float *rwork,
2290 const ptrdiff_t *lrwork,
2291 ptrdiff_t *iwork,
2292 const ptrdiff_t *liwork,
2293 ptrdiff_t *info
2294);
2295
2296/* Source: chpgvx.f */
2297#define chpgvx FORTRAN_WRAPPER(chpgvx)
2298extern void chpgvx(
2299 const ptrdiff_t *itype,
2300 const char *jobz,
2301 const char *range,
2302 const char *uplo,
2303 const ptrdiff_t *n,
2304 float *ap,
2305 float *bp,
2306 const float *vl,
2307 const float *vu,
2308 const ptrdiff_t *il,
2309 const ptrdiff_t *iu,
2310 const float *abstol,
2311 ptrdiff_t *m,
2312 float *w,
2313 float *z,
2314 const ptrdiff_t *ldz,
2315 float *work,
2316 float *rwork,
2317 ptrdiff_t *iwork,
2318 ptrdiff_t *ifail,
2319 ptrdiff_t *info
2320);
2321
2322/* Source: chprfs.f */
2323#define chprfs FORTRAN_WRAPPER(chprfs)
2324extern void chprfs(
2325 const char *uplo,
2326 const ptrdiff_t *n,
2327 const ptrdiff_t *nrhs,
2328 const float *ap,
2329 const float *afp,
2330 const ptrdiff_t *ipiv,
2331 const float *b,
2332 const ptrdiff_t *ldb,
2333 float *x,
2334 const ptrdiff_t *ldx,
2335 float *ferr,
2336 float *berr,
2337 float *work,
2338 float *rwork,
2339 ptrdiff_t *info
2340);
2341
2342/* Source: chpsv.f */
2343#define chpsv FORTRAN_WRAPPER(chpsv)
2344extern void chpsv(
2345 const char *uplo,
2346 const ptrdiff_t *n,
2347 const ptrdiff_t *nrhs,
2348 float *ap,
2349 ptrdiff_t *ipiv,
2350 float *b,
2351 const ptrdiff_t *ldb,
2352 ptrdiff_t *info
2353);
2354
2355/* Source: chpsvx.f */
2356#define chpsvx FORTRAN_WRAPPER(chpsvx)
2357extern void chpsvx(
2358 const char *fact,
2359 const char *uplo,
2360 const ptrdiff_t *n,
2361 const ptrdiff_t *nrhs,
2362 const float *ap,
2363 float *afp,
2364 ptrdiff_t *ipiv,
2365 const float *b,
2366 const ptrdiff_t *ldb,
2367 float *x,
2368 const ptrdiff_t *ldx,
2369 float *rcond,
2370 float *ferr,
2371 float *berr,
2372 float *work,
2373 float *rwork,
2374 ptrdiff_t *info
2375);
2376
2377/* Source: chptrd.f */
2378#define chptrd FORTRAN_WRAPPER(chptrd)
2379extern void chptrd(
2380 const char *uplo,
2381 const ptrdiff_t *n,
2382 float *ap,
2383 float *d,
2384 float *e,
2385 float *tau,
2386 ptrdiff_t *info
2387);
2388
2389/* Source: chptrf.f */
2390#define chptrf FORTRAN_WRAPPER(chptrf)
2391extern void chptrf(
2392 const char *uplo,
2393 const ptrdiff_t *n,
2394 float *ap,
2395 ptrdiff_t *ipiv,
2396 ptrdiff_t *info
2397);
2398
2399/* Source: chptri.f */
2400#define chptri FORTRAN_WRAPPER(chptri)
2401extern void chptri(
2402 const char *uplo,
2403 const ptrdiff_t *n,
2404 float *ap,
2405 const ptrdiff_t *ipiv,
2406 float *work,
2407 ptrdiff_t *info
2408);
2409
2410/* Source: chptrs.f */
2411#define chptrs FORTRAN_WRAPPER(chptrs)
2412extern void chptrs(
2413 const char *uplo,
2414 const ptrdiff_t *n,
2415 const ptrdiff_t *nrhs,
2416 const float *ap,
2417 const ptrdiff_t *ipiv,
2418 float *b,
2419 const ptrdiff_t *ldb,
2420 ptrdiff_t *info
2421);
2422
2423/* Source: chsein.f */
2424#define chsein FORTRAN_WRAPPER(chsein)
2425extern void chsein(
2426 const char *side,
2427 const char *eigsrc,
2428 const char *initv,
2429 const ptrdiff_t *select,
2430 const ptrdiff_t *n,
2431 const float *h,
2432 const ptrdiff_t *ldh,
2433 float *w,
2434 float *vl,
2435 const ptrdiff_t *ldvl,
2436 float *vr,
2437 const ptrdiff_t *ldvr,
2438 const ptrdiff_t *mm,
2439 ptrdiff_t *m,
2440 float *work,
2441 float *rwork,
2442 ptrdiff_t *ifaill,
2443 ptrdiff_t *ifailr,
2444 ptrdiff_t *info
2445);
2446
2447/* Source: chseqr.f */
2448#define chseqr FORTRAN_WRAPPER(chseqr)
2449extern void chseqr(
2450 const char *job,
2451 const char *compz,
2452 const ptrdiff_t *n,
2453 const ptrdiff_t *ilo,
2454 const ptrdiff_t *ihi,
2455 float *h,
2456 const ptrdiff_t *ldh,
2457 float *w,
2458 float *z,
2459 const ptrdiff_t *ldz,
2460 float *work,
2461 const ptrdiff_t *lwork,
2462 ptrdiff_t *info
2463);
2464
2465/* Source: clabrd.f */
2466#define clabrd FORTRAN_WRAPPER(clabrd)
2467extern void clabrd(
2468 const ptrdiff_t *m,
2469 const ptrdiff_t *n,
2470 const ptrdiff_t *nb,
2471 float *a,
2472 const ptrdiff_t *lda,
2473 float *d,
2474 float *e,
2475 float *tauq,
2476 float *taup,
2477 float *x,
2478 const ptrdiff_t *ldx,
2479 float *y,
2480 const ptrdiff_t *ldy
2481);
2482
2483/* Source: clacgv.f */
2484#define clacgv FORTRAN_WRAPPER(clacgv)
2485extern void clacgv(
2486 const ptrdiff_t *n,
2487 float *x,
2488 const ptrdiff_t *incx
2489);
2490
2491/* Source: clacn2.f */
2492#define clacn2 FORTRAN_WRAPPER(clacn2)
2493extern void clacn2(
2494 const ptrdiff_t *n,
2495 float *v,
2496 float *x,
2497 float *est,
2498 ptrdiff_t *kase,
2499 ptrdiff_t *isave
2500);
2501
2502/* Source: clacon.f */
2503#define clacon FORTRAN_WRAPPER(clacon)
2504extern void clacon(
2505 const ptrdiff_t *n,
2506 float *v,
2507 float *x,
2508 float *est,
2509 ptrdiff_t *kase
2510);
2511
2512/* Source: clacp2.f */
2513#define clacp2 FORTRAN_WRAPPER(clacp2)
2514extern void clacp2(
2515 const char *uplo,
2516 const ptrdiff_t *m,
2517 const ptrdiff_t *n,
2518 const float *a,
2519 const ptrdiff_t *lda,
2520 float *b,
2521 const ptrdiff_t *ldb
2522);
2523
2524/* Source: clacpy.f */
2525#define clacpy FORTRAN_WRAPPER(clacpy)
2526extern void clacpy(
2527 const char *uplo,
2528 const ptrdiff_t *m,
2529 const ptrdiff_t *n,
2530 const float *a,
2531 const ptrdiff_t *lda,
2532 float *b,
2533 const ptrdiff_t *ldb
2534);
2535
2536/* Source: clacrm.f */
2537#define clacrm FORTRAN_WRAPPER(clacrm)
2538extern void clacrm(
2539 const ptrdiff_t *m,
2540 const ptrdiff_t *n,
2541 const float *a,
2542 const ptrdiff_t *lda,
2543 const float *b,
2544 const ptrdiff_t *ldb,
2545 const float *c,
2546 const ptrdiff_t *ldc,
2547 float *rwork
2548);
2549
2550/* Source: clacrt.f */
2551#define clacrt FORTRAN_WRAPPER(clacrt)
2552extern void clacrt(
2553 const ptrdiff_t *n,
2554 float *cx,
2555 const ptrdiff_t *incx,
2556 float *cy,
2557 const ptrdiff_t *incy,
2558 const float *c,
2559 const float *s
2560);
2561
2562/* Source: cladiv.f */
2563#define cladiv FORTRAN_WRAPPER(cladiv)
2564#ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
2565extern complex cladiv(
2566#else
2567extern void cladiv(
2568 complex* retval,
2569#endif
2570 const float *x,
2571 const float *y
2572);
2573
2574/* Source: claed0.f */
2575#define claed0 FORTRAN_WRAPPER(claed0)
2576extern void claed0(
2577 const ptrdiff_t *qsiz,
2578 const ptrdiff_t *n,
2579 float *d,
2580 float *e,
2581 float *q,
2582 const ptrdiff_t *ldq,
2583 float *qstore,
2584 const ptrdiff_t *ldqs,
2585 float *rwork,
2586 ptrdiff_t *iwork,
2587 ptrdiff_t *info
2588);
2589
2590/* Source: claed7.f */
2591#define claed7 FORTRAN_WRAPPER(claed7)
2592extern void claed7(
2593 const ptrdiff_t *n,
2594 const ptrdiff_t *cutpnt,
2595 const ptrdiff_t *qsiz,
2596 const ptrdiff_t *tlvls,
2597 const ptrdiff_t *curlvl,
2598 const ptrdiff_t *curpbm,
2599 float *d,
2600 float *q,
2601 const ptrdiff_t *ldq,
2602 const float *rho,
2603 ptrdiff_t *indxq,
2604 float *qstore,
2605 ptrdiff_t *qptr,
2606 const ptrdiff_t *prmptr,
2607 const ptrdiff_t *perm,
2608 const ptrdiff_t *givptr,
2609 const ptrdiff_t *givcol,
2610 const float *givnum,
2611 float *work,
2612 float *rwork,
2613 ptrdiff_t *iwork,
2614 ptrdiff_t *info
2615);
2616
2617/* Source: claed8.f */
2618#define claed8 FORTRAN_WRAPPER(claed8)
2619extern void claed8(
2620 ptrdiff_t *k,
2621 const ptrdiff_t *n,
2622 const ptrdiff_t *qsiz,
2623 float *q,
2624 const ptrdiff_t *ldq,
2625 float *d,
2626 float *rho,
2627 const ptrdiff_t *cutpnt,
2628 const float *z,
2629 float *dlamda,
2630 float *q2,
2631 const ptrdiff_t *ldq2,
2632 float *w,
2633 ptrdiff_t *indxp,
2634 ptrdiff_t *indx,
2635 const ptrdiff_t *indxq,
2636 ptrdiff_t *perm,
2637 ptrdiff_t *givptr,
2638 ptrdiff_t *givcol,
2639 float *givnum,
2640 ptrdiff_t *info
2641);
2642
2643/* Source: claein.f */
2644#define claein FORTRAN_WRAPPER(claein)
2645extern void claein(
2646 const ptrdiff_t *rightv,
2647 const ptrdiff_t *noinit,
2648 const ptrdiff_t *n,
2649 const float *h,
2650 const ptrdiff_t *ldh,
2651 const float *w,
2652 float *v,
2653 float *b,
2654 const ptrdiff_t *ldb,
2655 float *rwork,
2656 const float *eps3,
2657 const float *smlnum,
2658 ptrdiff_t *info
2659);
2660
2661/* Source: claesy.f */
2662#define claesy FORTRAN_WRAPPER(claesy)
2663extern void claesy(
2664 const float *a,
2665 const float *b,
2666 const float *c,
2667 float *rt1,
2668 float *rt2,
2669 float *evscal,
2670 float *cs1,
2671 float *sn1
2672);
2673
2674/* Source: claev2.f */
2675#define claev2 FORTRAN_WRAPPER(claev2)
2676extern void claev2(
2677 const float *a,
2678 const float *b,
2679 const float *c,
2680 float *rt1,
2681 float *rt2,
2682 float *cs1,
2683 float *sn1
2684);
2685
2686/* Source: clag2z.f */
2687#define clag2z FORTRAN_WRAPPER(clag2z)
2688extern void clag2z(
2689 const ptrdiff_t *m,
2690 const ptrdiff_t *n,
2691 const float *sa,
2692 const ptrdiff_t *ldsa,
2693 double *a,
2694 const ptrdiff_t *lda,
2695 ptrdiff_t *info
2696);
2697
2698/* Source: clags2.f */
2699#define clags2 FORTRAN_WRAPPER(clags2)
2700extern void clags2(
2701 const ptrdiff_t *upper,
2702 const float *a1,
2703 const float *a2,
2704 const float *a3,
2705 const float *b1,
2706 const float *b2,
2707 const float *b3,
2708 float *csu,
2709 float *snu,
2710 float *csv,
2711 float *snv,
2712 float *csq,
2713 float *snq
2714);
2715
2716/* Source: clagtm.f */
2717#define clagtm FORTRAN_WRAPPER(clagtm)
2718extern void clagtm(
2719 const char *trans,
2720 const ptrdiff_t *n,
2721 const ptrdiff_t *nrhs,
2722 const float *alpha,
2723 const float *dl,
2724 const float *d,
2725 const float *du,
2726 const float *x,
2727 const ptrdiff_t *ldx,
2728 const float *beta,
2729 float *b,
2730 const ptrdiff_t *ldb
2731);
2732
2733/* Source: clahef.f */
2734#define clahef FORTRAN_WRAPPER(clahef)
2735extern void clahef(
2736 const char *uplo,
2737 const ptrdiff_t *n,
2738 const ptrdiff_t *nb,
2739 ptrdiff_t *kb,
2740 float *a,
2741 const ptrdiff_t *lda,
2742 ptrdiff_t *ipiv,
2743 float *w,
2744 const ptrdiff_t *ldw,
2745 ptrdiff_t *info
2746);
2747
2748/* Source: clahef_rook.f */
2749#define clahef_rook FORTRAN_WRAPPER(clahef_rook)
2750extern void clahef_rook(
2751 const char *uplo,
2752 const ptrdiff_t *n,
2753 const ptrdiff_t *nb,
2754 ptrdiff_t *kb,
2755 float *a,
2756 const ptrdiff_t *lda,
2757 ptrdiff_t *ipiv,
2758 float *w,
2759 const ptrdiff_t *ldw,
2760 ptrdiff_t *info
2761);
2762
2763/* Source: clahqr.f */
2764#define clahqr FORTRAN_WRAPPER(clahqr)
2765extern void clahqr(
2766 const ptrdiff_t *wantt,
2767 const ptrdiff_t *wantz,
2768 const ptrdiff_t *n,
2769 const ptrdiff_t *ilo,
2770 const ptrdiff_t *ihi,
2771 float *h,
2772 const ptrdiff_t *ldh,
2773 float *w,
2774 const ptrdiff_t *iloz,
2775 const ptrdiff_t *ihiz,
2776 float *z,
2777 const ptrdiff_t *ldz,
2778 ptrdiff_t *info
2779);
2780
2781/* Source: clahr2.f */
2782#define clahr2 FORTRAN_WRAPPER(clahr2)
2783extern void clahr2(
2784 const ptrdiff_t *n,
2785 const ptrdiff_t *k,
2786 const ptrdiff_t *nb,
2787 float *a,
2788 const ptrdiff_t *lda,
2789 float *tau,
2790 float *t,
2791 const ptrdiff_t *ldt,
2792 float *y,
2793 const ptrdiff_t *ldy
2794);
2795
2796/* Source: clahrd.f */
2797#define clahrd FORTRAN_WRAPPER(clahrd)
2798extern void clahrd(
2799 const ptrdiff_t *n,
2800 const ptrdiff_t *k,
2801 const ptrdiff_t *nb,
2802 float *a,
2803 const ptrdiff_t *lda,
2804 float *tau,
2805 float *t,
2806 const ptrdiff_t *ldt,
2807 float *y,
2808 const ptrdiff_t *ldy
2809);
2810
2811/* Source: claic1.f */
2812#define claic1 FORTRAN_WRAPPER(claic1)
2813extern void claic1(
2814 const ptrdiff_t *job,
2815 const ptrdiff_t *j,
2816 const float *x,
2817 const float *sest,
2818 const float *w,
2819 const float *gamma_,
2820 float *sestpr,
2821 float *s,
2822 float *c
2823);
2824
2825/* Source: clals0.f */
2826#define clals0 FORTRAN_WRAPPER(clals0)
2827extern void clals0(
2828 const ptrdiff_t *icompq,
2829 const ptrdiff_t *nl,
2830 const ptrdiff_t *nr,
2831 const ptrdiff_t *sqre,
2832 const ptrdiff_t *nrhs,
2833 float *b,
2834 const ptrdiff_t *ldb,
2835 float *bx,
2836 const ptrdiff_t *ldbx,
2837 const ptrdiff_t *perm,
2838 const ptrdiff_t *givptr,
2839 const ptrdiff_t *givcol,
2840 const ptrdiff_t *ldgcol,
2841 const float *givnum,
2842 const ptrdiff_t *ldgnum,
2843 const float *poles,
2844 const float *difl,
2845 const float *difr,
2846 const float *z,
2847 const ptrdiff_t *k,
2848 const float *c,
2849 const float *s,
2850 float *rwork,
2851 ptrdiff_t *info
2852);
2853
2854/* Source: clalsa.f */
2855#define clalsa FORTRAN_WRAPPER(clalsa)
2856extern void clalsa(
2857 const ptrdiff_t *icompq,
2858 const ptrdiff_t *smlsiz,
2859 const ptrdiff_t *n,
2860 const ptrdiff_t *nrhs,
2861 float *b,
2862 const ptrdiff_t *ldb,
2863 float *bx,
2864 const ptrdiff_t *ldbx,
2865 const float *u,
2866 const ptrdiff_t *ldu,
2867 const float *vt,
2868 const ptrdiff_t *k,
2869 const float *difl,
2870 const float *difr,
2871 const float *z,
2872 const float *poles,
2873 const ptrdiff_t *givptr,
2874 const ptrdiff_t *givcol,
2875 const ptrdiff_t *ldgcol,
2876 const ptrdiff_t *perm,
2877 const float *givnum,
2878 const float *c,
2879 const float *s,
2880 float *rwork,
2881 ptrdiff_t *iwork,
2882 ptrdiff_t *info
2883);
2884
2885/* Source: clalsd.f */
2886#define clalsd FORTRAN_WRAPPER(clalsd)
2887extern void clalsd(
2888 const char *uplo,
2889 const ptrdiff_t *smlsiz,
2890 const ptrdiff_t *n,
2891 const ptrdiff_t *nrhs,
2892 float *d,
2893 float *e,
2894 float *b,
2895 const ptrdiff_t *ldb,
2896 const float *rcond,
2897 ptrdiff_t *rank,
2898 float *work,
2899 float *rwork,
2900 ptrdiff_t *iwork,
2901 ptrdiff_t *info
2902);
2903
2904/* Source: clangb.f */
2905#define clangb FORTRAN_WRAPPER(clangb)
2906#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
2907extern double clangb(
2908#else
2909extern float clangb(
2910#endif
2911 const char *norm,
2912 const ptrdiff_t *n,
2913 const ptrdiff_t *kl,
2914 const ptrdiff_t *ku,
2915 const float *ab,
2916 const ptrdiff_t *ldab,
2917 float *work
2918);
2919
2920/* Source: clange.f */
2921#define clange FORTRAN_WRAPPER(clange)
2922#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
2923extern double clange(
2924#else
2925extern float clange(
2926#endif
2927 const char *norm,
2928 const ptrdiff_t *m,
2929 const ptrdiff_t *n,
2930 const float *a,
2931 const ptrdiff_t *lda,
2932 float *work
2933);
2934
2935/* Source: clangt.f */
2936#define clangt FORTRAN_WRAPPER(clangt)
2937#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
2938extern double clangt(
2939#else
2940extern float clangt(
2941#endif
2942 const char *norm,
2943 const ptrdiff_t *n,
2944 const float *dl,
2945 const float *d,
2946 const float *du
2947);
2948
2949/* Source: clanhb.f */
2950#define clanhb FORTRAN_WRAPPER(clanhb)
2951#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
2952extern double clanhb(
2953#else
2954extern float clanhb(
2955#endif
2956 const char *norm,
2957 const char *uplo,
2958 const ptrdiff_t *n,
2959 const ptrdiff_t *k,
2960 const float *ab,
2961 const ptrdiff_t *ldab,
2962 float *work
2963);
2964
2965/* Source: clanhe.f */
2966#define clanhe FORTRAN_WRAPPER(clanhe)
2967#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
2968extern double clanhe(
2969#else
2970extern float clanhe(
2971#endif
2972 const char *norm,
2973 const char *uplo,
2974 const ptrdiff_t *n,
2975 const float *a,
2976 const ptrdiff_t *lda,
2977 float *work
2978);
2979
2980/* Source: clanhf.f */
2981#define clanhf FORTRAN_WRAPPER(clanhf)
2982#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
2983extern double clanhf(
2984#else
2985extern float clanhf(
2986#endif
2987 const char *norm,
2988 const char *transr,
2989 const char *uplo,
2990 const ptrdiff_t *n,
2991 const float *a,
2992 float *work
2993);
2994
2995/* Source: clanhp.f */
2996#define clanhp FORTRAN_WRAPPER(clanhp)
2997#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
2998extern double clanhp(
2999#else
3000extern float clanhp(
3001#endif
3002 const char *norm,
3003 const char *uplo,
3004 const ptrdiff_t *n,
3005 const float *ap,
3006 float *work
3007);
3008
3009/* Source: clanhs.f */
3010#define clanhs FORTRAN_WRAPPER(clanhs)
3011#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3012extern double clanhs(
3013#else
3014extern float clanhs(
3015#endif
3016 const char *norm,
3017 const ptrdiff_t *n,
3018 const float *a,
3019 const ptrdiff_t *lda,
3020 float *work
3021);
3022
3023/* Source: clanht.f */
3024#define clanht FORTRAN_WRAPPER(clanht)
3025#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3026extern double clanht(
3027#else
3028extern float clanht(
3029#endif
3030 const char *norm,
3031 const ptrdiff_t *n,
3032 const float *d,
3033 const float *e
3034);
3035
3036/* Source: clansb.f */
3037#define clansb FORTRAN_WRAPPER(clansb)
3038#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3039extern double clansb(
3040#else
3041extern float clansb(
3042#endif
3043 const char *norm,
3044 const char *uplo,
3045 const ptrdiff_t *n,
3046 const ptrdiff_t *k,
3047 const float *ab,
3048 const ptrdiff_t *ldab,
3049 float *work
3050);
3051
3052/* Source: clansp.f */
3053#define clansp FORTRAN_WRAPPER(clansp)
3054#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3055extern double clansp(
3056#else
3057extern float clansp(
3058#endif
3059 const char *norm,
3060 const char *uplo,
3061 const ptrdiff_t *n,
3062 const float *ap,
3063 float *work
3064);
3065
3066/* Source: clansy.f */
3067#define clansy FORTRAN_WRAPPER(clansy)
3068#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3069extern double clansy(
3070#else
3071extern float clansy(
3072#endif
3073 const char *norm,
3074 const char *uplo,
3075 const ptrdiff_t *n,
3076 const float *a,
3077 const ptrdiff_t *lda,
3078 float *work
3079);
3080
3081/* Source: clantb.f */
3082#define clantb FORTRAN_WRAPPER(clantb)
3083#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3084extern double clantb(
3085#else
3086extern float clantb(
3087#endif
3088 const char *norm,
3089 const char *uplo,
3090 const char *diag,
3091 const ptrdiff_t *n,
3092 const ptrdiff_t *k,
3093 const float *ab,
3094 const ptrdiff_t *ldab,
3095 float *work
3096);
3097
3098/* Source: clantp.f */
3099#define clantp FORTRAN_WRAPPER(clantp)
3100#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3101extern double clantp(
3102#else
3103extern float clantp(
3104#endif
3105 const char *norm,
3106 const char *uplo,
3107 const char *diag,
3108 const ptrdiff_t *n,
3109 const float *ap,
3110 float *work
3111);
3112
3113/* Source: clantr.f */
3114#define clantr FORTRAN_WRAPPER(clantr)
3115#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
3116extern double clantr(
3117#else
3118extern float clantr(
3119#endif
3120 const char *norm,
3121 const char *uplo,
3122 const char *diag,
3123 const ptrdiff_t *m,
3124 const ptrdiff_t *n,
3125 const float *a,
3126 const ptrdiff_t *lda,
3127 float *work
3128);
3129
3130/* Source: clapll.f */
3131#define clapll FORTRAN_WRAPPER(clapll)
3132extern void clapll(
3133 const ptrdiff_t *n,
3134 float *x,
3135 const ptrdiff_t *incx,
3136 float *y,
3137 const ptrdiff_t *incy,
3138 float *ssmin
3139);
3140
3141/* Source: clapmr.f */
3142#define clapmr FORTRAN_WRAPPER(clapmr)
3143extern void clapmr(
3144 const ptrdiff_t *forwrd,
3145 const ptrdiff_t *m,
3146 const ptrdiff_t *n,
3147 float *x,
3148 const ptrdiff_t *ldx,
3149 ptrdiff_t *k
3150);
3151
3152/* Source: clapmt.f */
3153#define clapmt FORTRAN_WRAPPER(clapmt)
3154extern void clapmt(
3155 const ptrdiff_t *forwrd,
3156 const ptrdiff_t *m,
3157 const ptrdiff_t *n,
3158 float *x,
3159 const ptrdiff_t *ldx,
3160 ptrdiff_t *k
3161);
3162
3163/* Source: claqgb.f */
3164#define claqgb FORTRAN_WRAPPER(claqgb)
3165extern void claqgb(
3166 const ptrdiff_t *m,
3167 const ptrdiff_t *n,
3168 const ptrdiff_t *kl,
3169 const ptrdiff_t *ku,
3170 float *ab,
3171 const ptrdiff_t *ldab,
3172 const float *r,
3173 const float *c,
3174 const float *rowcnd,
3175 const float *colcnd,
3176 const float *amax,
3177 char *equed
3178);
3179
3180/* Source: claqge.f */
3181#define claqge FORTRAN_WRAPPER(claqge)
3182extern void claqge(
3183 const ptrdiff_t *m,
3184 const ptrdiff_t *n,
3185 float *a,
3186 const ptrdiff_t *lda,
3187 const float *r,
3188 const float *c,
3189 const float *rowcnd,
3190 const float *colcnd,
3191 const float *amax,
3192 char *equed
3193);
3194
3195/* Source: claqhb.f */
3196#define claqhb FORTRAN_WRAPPER(claqhb)
3197extern void claqhb(
3198 const char *uplo,
3199 const ptrdiff_t *n,
3200 const ptrdiff_t *kd,
3201 float *ab,
3202 const ptrdiff_t *ldab,
3203 float *s,
3204 const float *scond,
3205 const float *amax,
3206 char *equed
3207);
3208
3209/* Source: claqhe.f */
3210#define claqhe FORTRAN_WRAPPER(claqhe)
3211extern void claqhe(
3212 const char *uplo,
3213 const ptrdiff_t *n,
3214 float *a,
3215 const ptrdiff_t *lda,
3216 const float *s,
3217 const float *scond,
3218 const float *amax,
3219 char *equed
3220);
3221
3222/* Source: claqhp.f */
3223#define claqhp FORTRAN_WRAPPER(claqhp)
3224extern void claqhp(
3225 const char *uplo,
3226 const ptrdiff_t *n,
3227 float *ap,
3228 const float *s,
3229 const float *scond,
3230 const float *amax,
3231 char *equed
3232);
3233
3234/* Source: claqp2.f */
3235#define claqp2 FORTRAN_WRAPPER(claqp2)
3236extern void claqp2(
3237 const ptrdiff_t *m,
3238 const ptrdiff_t *n,
3239 const ptrdiff_t *offset,
3240 float *a,
3241 const ptrdiff_t *lda,
3242 ptrdiff_t *jpvt,
3243 float *tau,
3244 float *vn1,
3245 float *vn2,
3246 float *work
3247);
3248
3249/* Source: claqps.f */
3250#define claqps FORTRAN_WRAPPER(claqps)
3251extern void claqps(
3252 const ptrdiff_t *m,
3253 const ptrdiff_t *n,
3254 const ptrdiff_t *offset,
3255 const ptrdiff_t *nb,
3256 ptrdiff_t *kb,
3257 float *a,
3258 const ptrdiff_t *lda,
3259 ptrdiff_t *jpvt,
3260 float *tau,
3261 float *vn1,
3262 float *vn2,
3263 float *auxv,
3264 float *f,
3265 const ptrdiff_t *ldf
3266);
3267
3268/* Source: claqr0.f */
3269#define claqr0 FORTRAN_WRAPPER(claqr0)
3270extern void claqr0(
3271 const ptrdiff_t *wantt,
3272 const ptrdiff_t *wantz,
3273 const ptrdiff_t *n,
3274 const ptrdiff_t *ilo,
3275 const ptrdiff_t *ihi,
3276 float *h,
3277 const ptrdiff_t *ldh,
3278 float *w,
3279 ptrdiff_t *iloz,
3280 ptrdiff_t *ihiz,
3281 float *z,
3282 const ptrdiff_t *ldz,
3283 float *work,
3284 const ptrdiff_t *lwork,
3285 ptrdiff_t *info
3286);
3287
3288/* Source: claqr1.f */
3289#define claqr1 FORTRAN_WRAPPER(claqr1)
3290extern void claqr1(
3291 const ptrdiff_t *n,
3292 const float *h,
3293 const ptrdiff_t *ldh,
3294 const float *s1,
3295 float *s2,
3296 float *v
3297);
3298
3299/* Source: claqr2.f */
3300#define claqr2 FORTRAN_WRAPPER(claqr2)
3301extern void claqr2(
3302 const ptrdiff_t *wantt,
3303 const ptrdiff_t *wantz,
3304 const ptrdiff_t *n,
3305 const ptrdiff_t *ktop,
3306 const ptrdiff_t *kbot,
3307 const ptrdiff_t *nw,
3308 float *h,
3309 const ptrdiff_t *ldh,
3310 const ptrdiff_t *iloz,
3311 const ptrdiff_t *ihiz,
3312 float *z,
3313 const ptrdiff_t *ldz,
3314 ptrdiff_t *ns,
3315 ptrdiff_t *nd,
3316 float *sh,
3317 float *v,
3318 const ptrdiff_t *ldv,
3319 const ptrdiff_t *nh,
3320 float *t,
3321 const ptrdiff_t *ldt,
3322 const ptrdiff_t *nv,
3323 float *wv,
3324 const ptrdiff_t *ldwv,
3325 float *work,
3326 const ptrdiff_t *lwork
3327);
3328
3329/* Source: claqr3.f */
3330#define claqr3 FORTRAN_WRAPPER(claqr3)
3331extern void claqr3(
3332 const ptrdiff_t *wantt,
3333 const ptrdiff_t *wantz,
3334 const ptrdiff_t *n,
3335 const ptrdiff_t *ktop,
3336 const ptrdiff_t *kbot,
3337 const ptrdiff_t *nw,
3338 float *h,
3339 const ptrdiff_t *ldh,
3340 const ptrdiff_t *iloz,
3341 const ptrdiff_t *ihiz,
3342 float *z,
3343 const ptrdiff_t *ldz,
3344 ptrdiff_t *ns,
3345 ptrdiff_t *nd,
3346 float *sh,
3347 float *v,
3348 const ptrdiff_t *ldv,
3349 const ptrdiff_t *nh,
3350 float *t,
3351 const ptrdiff_t *ldt,
3352 const ptrdiff_t *nv,
3353 float *wv,
3354 const ptrdiff_t *ldwv,
3355 float *work,
3356 const ptrdiff_t *lwork
3357);
3358
3359/* Source: claqr4.f */
3360#define claqr4 FORTRAN_WRAPPER(claqr4)
3361extern void claqr4(
3362 const ptrdiff_t *wantt,
3363 const ptrdiff_t *wantz,
3364 const ptrdiff_t *n,
3365 const ptrdiff_t *ilo,
3366 const ptrdiff_t *ihi,
3367 float *h,
3368 const ptrdiff_t *ldh,
3369 float *w,
3370 ptrdiff_t *iloz,
3371 ptrdiff_t *ihiz,
3372 float *z,
3373 const ptrdiff_t *ldz,
3374 float *work,
3375 const ptrdiff_t *lwork,
3376 ptrdiff_t *info
3377);
3378
3379/* Source: claqr5.f */
3380#define claqr5 FORTRAN_WRAPPER(claqr5)
3381extern void claqr5(
3382 const ptrdiff_t *wantt,
3383 const ptrdiff_t *wantz,
3384 const ptrdiff_t *kacc22,
3385 const ptrdiff_t *n,
3386 const ptrdiff_t *ktop,
3387 const ptrdiff_t *kbot,
3388 const ptrdiff_t *nshfts,
3389 float *s,
3390 float *h,
3391 const ptrdiff_t *ldh,
3392 const ptrdiff_t *iloz,
3393 const ptrdiff_t *ihiz,
3394 float *z,
3395 const ptrdiff_t *ldz,
3396 float *v,
3397 const ptrdiff_t *ldv,
3398 float *u,
3399 const ptrdiff_t *ldu,
3400 const ptrdiff_t *nv,
3401 float *wv,
3402 const ptrdiff_t *ldwv,
3403 const ptrdiff_t *nh,
3404 float *wh,
3405 const ptrdiff_t *ldwh
3406);
3407
3408/* Source: claqsb.f */
3409#define claqsb FORTRAN_WRAPPER(claqsb)
3410extern void claqsb(
3411 const char *uplo,
3412 const ptrdiff_t *n,
3413 const ptrdiff_t *kd,
3414 float *ab,
3415 const ptrdiff_t *ldab,
3416 const float *s,
3417 const float *scond,
3418 const float *amax,
3419 char *equed
3420);
3421
3422/* Source: claqsp.f */
3423#define claqsp FORTRAN_WRAPPER(claqsp)
3424extern void claqsp(
3425 const char *uplo,
3426 const ptrdiff_t *n,
3427 float *ap,
3428 const float *s,
3429 const float *scond,
3430 const float *amax,
3431 char *equed
3432);
3433
3434/* Source: claqsy.f */
3435#define claqsy FORTRAN_WRAPPER(claqsy)
3436extern void claqsy(
3437 const char *uplo,
3438 const ptrdiff_t *n,
3439 float *a,
3440 const ptrdiff_t *lda,
3441 const float *s,
3442 const float *scond,
3443 const float *amax,
3444 char *equed
3445);
3446
3447/* Source: clar1v.f */
3448#define clar1v FORTRAN_WRAPPER(clar1v)
3449extern void clar1v(
3450 const ptrdiff_t *n,
3451 const ptrdiff_t *b1,
3452 const ptrdiff_t *bn,
3453 const float *lambda,
3454 const float *d,
3455 const float *l,
3456 const float *ld,
3457 const float *lld,
3458 const float *pivmin,
3459 const float *gaptol,
3460 float *z,
3461 const ptrdiff_t *wantnc,
3462 ptrdiff_t *negcnt,
3463 float *ztz,
3464 float *mingma,
3465 ptrdiff_t *r,
3466 ptrdiff_t *isuppz,
3467 float *nrminv,
3468 float *resid,
3469 float *rqcorr,
3470 float *work
3471);
3472
3473/* Source: clar2v.f */
3474#define clar2v FORTRAN_WRAPPER(clar2v)
3475extern void clar2v(
3476 const ptrdiff_t *n,
3477 float *x,
3478 float *y,
3479 float *z,
3480 const ptrdiff_t *incx,
3481 const float *c,
3482 const float *s,
3483 const ptrdiff_t *incc
3484);
3485
3486/* Source: clarcm.f */
3487#define clarcm FORTRAN_WRAPPER(clarcm)
3488extern void clarcm(
3489 const ptrdiff_t *m,
3490 const ptrdiff_t *n,
3491 const float *a,
3492 const ptrdiff_t *lda,
3493 const float *b,
3494 const ptrdiff_t *ldb,
3495 const float *c,
3496 const ptrdiff_t *ldc,
3497 float *rwork
3498);
3499
3500/* Source: clarf.f */
3501#define clarf FORTRAN_WRAPPER(clarf)
3502extern void clarf(
3503 const char *side,
3504 const ptrdiff_t *m,
3505 const ptrdiff_t *n,
3506 const float *v,
3507 const ptrdiff_t *incv,
3508 const float *tau,
3509 float *c,
3510 const ptrdiff_t *ldc,
3511 float *work
3512);
3513
3514/* Source: clarfb.f */
3515#define clarfb FORTRAN_WRAPPER(clarfb)
3516extern void clarfb(
3517 const char *side,
3518 const char *trans,
3519 const char *direct,
3520 const char *storev,
3521 const ptrdiff_t *m,
3522 const ptrdiff_t *n,
3523 const ptrdiff_t *k,
3524 const float *v,
3525 const ptrdiff_t *ldv,
3526 const float *t,
3527 const ptrdiff_t *ldt,
3528 float *c,
3529 const ptrdiff_t *ldc,
3530 float *work,
3531 const ptrdiff_t *ldwork
3532);
3533
3534/* Source: clarfg.f */
3535#define clarfg FORTRAN_WRAPPER(clarfg)
3536extern void clarfg(
3537 const ptrdiff_t *n,
3538 float *alpha,
3539 float *x,
3540 const ptrdiff_t *incx,
3541 float *tau
3542);
3543
3544/* Source: clarfgp.f */
3545#define clarfgp FORTRAN_WRAPPER(clarfgp)
3546extern void clarfgp(
3547 const ptrdiff_t *n,
3548 float *alpha,
3549 float *x,
3550 const ptrdiff_t *incx,
3551 float *tau
3552);
3553
3554/* Source: clarft.f */
3555#define clarft FORTRAN_WRAPPER(clarft)
3556extern void clarft(
3557 const char *direct,
3558 const char *storev,
3559 const ptrdiff_t *n,
3560 const ptrdiff_t *k,
3561 float *v,
3562 const ptrdiff_t *ldv,
3563 const float *tau,
3564 float *t,
3565 const ptrdiff_t *ldt
3566);
3567
3568/* Source: clarfx.f */
3569#define clarfx FORTRAN_WRAPPER(clarfx)
3570extern void clarfx(
3571 const char *side,
3572 const ptrdiff_t *m,
3573 const ptrdiff_t *n,
3574 const float *v,
3575 const float *tau,
3576 float *c,
3577 const ptrdiff_t *ldc,
3578 float *work
3579);
3580
3581/* Source: clargv.f */
3582#define clargv FORTRAN_WRAPPER(clargv)
3583extern void clargv(
3584 const ptrdiff_t *n,
3585 float *x,
3586 const ptrdiff_t *incx,
3587 float *y,
3588 const ptrdiff_t *incy,
3589 float *c,
3590 const ptrdiff_t *incc
3591);
3592
3593/* Source: clarnv.f */
3594#define clarnv FORTRAN_WRAPPER(clarnv)
3595extern void clarnv(
3596 const ptrdiff_t *idist,
3597 ptrdiff_t *iseed,
3598 const ptrdiff_t *n,
3599 float *x
3600);
3601
3602/* Source: clarrv.f */
3603#define clarrv FORTRAN_WRAPPER(clarrv)
3604extern void clarrv(
3605 const ptrdiff_t *n,
3606 const float *vl,
3607 const float *vu,
3608 float *d,
3609 float *l,
3610 float *pivmin,
3611 const ptrdiff_t *isplit,
3612 const ptrdiff_t *m,
3613 const ptrdiff_t *dol,
3614 const ptrdiff_t *dou,
3615 const float *minrgp,
3616 const float *rtol1,
3617 const float *rtol2,
3618 float *w,
3619 float *werr,
3620 float *wgap,
3621 const ptrdiff_t *iblock,
3622 const ptrdiff_t *indexw,
3623 const float *gers,
3624 float *z,
3625 const ptrdiff_t *ldz,
3626 ptrdiff_t *isuppz,
3627 float *work,
3628 ptrdiff_t *iwork,
3629 ptrdiff_t *info
3630);
3631
3632/* Source: clartg.f */
3633#define clartg FORTRAN_WRAPPER(clartg)
3634extern void clartg(
3635 const float *f,
3636 const float *g,
3637 float *cs,
3638 float *sn,
3639 float *r
3640);
3641
3642/* Source: clartv.f */
3643#define clartv FORTRAN_WRAPPER(clartv)
3644extern void clartv(
3645 const ptrdiff_t *n,
3646 float *x,
3647 const ptrdiff_t *incx,
3648 float *y,
3649 const ptrdiff_t *incy,
3650 const float *c,
3651 const float *s,
3652 const ptrdiff_t *incc
3653);
3654
3655/* Source: clarz.f */
3656#define clarz FORTRAN_WRAPPER(clarz)
3657extern void clarz(
3658 const char *side,
3659 const ptrdiff_t *m,
3660 const ptrdiff_t *n,
3661 const ptrdiff_t *l,
3662 const float *v,
3663 const ptrdiff_t *incv,
3664 const float *tau,
3665 float *c,
3666 const ptrdiff_t *ldc,
3667 float *work
3668);
3669
3670/* Source: clarzb.f */
3671#define clarzb FORTRAN_WRAPPER(clarzb)
3672extern void clarzb(
3673 const char *side,
3674 const char *trans,
3675 const char *direct,
3676 const char *storev,
3677 const ptrdiff_t *m,
3678 const ptrdiff_t *n,
3679 const ptrdiff_t *k,
3680 const ptrdiff_t *l,
3681 const float *v,
3682 const ptrdiff_t *ldv,
3683 const float *t,
3684 const ptrdiff_t *ldt,
3685 float *c,
3686 const ptrdiff_t *ldc,
3687 float *work,
3688 const ptrdiff_t *ldwork
3689);
3690
3691/* Source: clarzt.f */
3692#define clarzt FORTRAN_WRAPPER(clarzt)
3693extern void clarzt(
3694 const char *direct,
3695 const char *storev,
3696 const ptrdiff_t *n,
3697 const ptrdiff_t *k,
3698 float *v,
3699 const ptrdiff_t *ldv,
3700 const float *tau,
3701 float *t,
3702 const ptrdiff_t *ldt
3703);
3704
3705/* Source: clascl.f */
3706#define clascl FORTRAN_WRAPPER(clascl)
3707extern void clascl(
3708 const char *type,
3709 const ptrdiff_t *kl,
3710 const ptrdiff_t *ku,
3711 const float *cfrom,
3712 const float *cto,
3713 const ptrdiff_t *m,
3714 const ptrdiff_t *n,
3715 float *a,
3716 const ptrdiff_t *lda,
3717 ptrdiff_t *info
3718);
3719
3720/* Source: claset.f */
3721#define claset FORTRAN_WRAPPER(claset)
3722extern void claset(
3723 const char *uplo,
3724 const ptrdiff_t *m,
3725 const ptrdiff_t *n,
3726 const float *alpha,
3727 const float *beta,
3728 float *a,
3729 const ptrdiff_t *lda
3730);
3731
3732/* Source: clasr.f */
3733#define clasr FORTRAN_WRAPPER(clasr)
3734extern void clasr(
3735 const char *side,
3736 const char *pivot,
3737 const char *direct,
3738 const ptrdiff_t *m,
3739 const ptrdiff_t *n,
3740 const float *c,
3741 const float *s,
3742 float *a,
3743 const ptrdiff_t *lda
3744);
3745
3746/* Source: classq.f */
3747#define classq FORTRAN_WRAPPER(classq)
3748extern void classq(
3749 const ptrdiff_t *n,
3750 const float *x,
3751 const ptrdiff_t *incx,
3752 float *scale,
3753 float *sumsq
3754);
3755
3756/* Source: claswp.f */
3757#define claswp FORTRAN_WRAPPER(claswp)
3758extern void claswp(
3759 const ptrdiff_t *n,
3760 float *a,
3761 const ptrdiff_t *lda,
3762 const ptrdiff_t *k1,
3763 const ptrdiff_t *k2,
3764 const ptrdiff_t *ipiv,
3765 const ptrdiff_t *incx
3766);
3767
3768/* Source: clasyf.f */
3769#define clasyf FORTRAN_WRAPPER(clasyf)
3770extern void clasyf(
3771 const char *uplo,
3772 const ptrdiff_t *n,
3773 const ptrdiff_t *nb,
3774 ptrdiff_t *kb,
3775 float *a,
3776 const ptrdiff_t *lda,
3777 ptrdiff_t *ipiv,
3778 float *w,
3779 const ptrdiff_t *ldw,
3780 ptrdiff_t *info
3781);
3782
3783/* Source: clasyf_rook.f */
3784#define clasyf_rook FORTRAN_WRAPPER(clasyf_rook)
3785extern void clasyf_rook(
3786 const char *uplo,
3787 const ptrdiff_t *n,
3788 const ptrdiff_t *nb,
3789 ptrdiff_t *kb,
3790 float *a,
3791 const ptrdiff_t *lda,
3792 ptrdiff_t *ipiv,
3793 float *w,
3794 const ptrdiff_t *ldw,
3795 ptrdiff_t *info
3796);
3797
3798/* Source: clatbs.f */
3799#define clatbs FORTRAN_WRAPPER(clatbs)
3800extern void clatbs(
3801 const char *uplo,
3802 const char *trans,
3803 const char *diag,
3804 const char *normin,
3805 const ptrdiff_t *n,
3806 const ptrdiff_t *kd,
3807 const float *ab,
3808 const ptrdiff_t *ldab,
3809 float *x,
3810 float *scale,
3811 float *cnorm,
3812 ptrdiff_t *info
3813);
3814
3815/* Source: clatdf.f */
3816#define clatdf FORTRAN_WRAPPER(clatdf)
3817extern void clatdf(
3818 const ptrdiff_t *ijob,
3819 const ptrdiff_t *n,
3820 const float *z,
3821 const ptrdiff_t *ldz,
3822 float *rhs,
3823 float *rdsum,
3824 float *rdscal,
3825 const ptrdiff_t *ipiv,
3826 const ptrdiff_t *jpiv
3827);
3828
3829/* Source: clatps.f */
3830#define clatps FORTRAN_WRAPPER(clatps)
3831extern void clatps(
3832 const char *uplo,
3833 const char *trans,
3834 const char *diag,
3835 const char *normin,
3836 const ptrdiff_t *n,
3837 const float *ap,
3838 float *x,
3839 float *scale,
3840 float *cnorm,
3841 ptrdiff_t *info
3842);
3843
3844/* Source: clatrd.f */
3845#define clatrd FORTRAN_WRAPPER(clatrd)
3846extern void clatrd(
3847 const char *uplo,
3848 const ptrdiff_t *n,
3849 const ptrdiff_t *nb,
3850 float *a,
3851 const ptrdiff_t *lda,
3852 float *e,
3853 float *tau,
3854 float *w,
3855 const ptrdiff_t *ldw
3856);
3857
3858/* Source: clatrs.f */
3859#define clatrs FORTRAN_WRAPPER(clatrs)
3860extern void clatrs(
3861 const char *uplo,
3862 const char *trans,
3863 const char *diag,
3864 const char *normin,
3865 const ptrdiff_t *n,
3866 const float *a,
3867 const ptrdiff_t *lda,
3868 float *x,
3869 float *scale,
3870 float *cnorm,
3871 ptrdiff_t *info
3872);
3873
3874/* Source: clatrz.f */
3875#define clatrz FORTRAN_WRAPPER(clatrz)
3876extern void clatrz(
3877 const ptrdiff_t *m,
3878 const ptrdiff_t *n,
3879 const ptrdiff_t *l,
3880 float *a,
3881 const ptrdiff_t *lda,
3882 float *tau,
3883 float *work
3884);
3885
3886/* Source: clatzm.f */
3887#define clatzm FORTRAN_WRAPPER(clatzm)
3888extern void clatzm(
3889 const char *side,
3890 const ptrdiff_t *m,
3891 const ptrdiff_t *n,
3892 const float *v,
3893 const ptrdiff_t *incv,
3894 const float *tau,
3895 float *c1,
3896 float *c2,
3897 const ptrdiff_t *ldc,
3898 float *work
3899);
3900
3901/* Source: clauu2.f */
3902#define clauu2 FORTRAN_WRAPPER(clauu2)
3903extern void clauu2(
3904 const char *uplo,
3905 const ptrdiff_t *n,
3906 float *a,
3907 const ptrdiff_t *lda,
3908 ptrdiff_t *info
3909);
3910
3911/* Source: clauum.f */
3912#define clauum FORTRAN_WRAPPER(clauum)
3913extern void clauum(
3914 const char *uplo,
3915 const ptrdiff_t *n,
3916 float *a,
3917 const ptrdiff_t *lda,
3918 ptrdiff_t *info
3919);
3920
3921/* Source: cpbcon.f */
3922#define cpbcon FORTRAN_WRAPPER(cpbcon)
3923extern void cpbcon(
3924 const char *uplo,
3925 const ptrdiff_t *n,
3926 const ptrdiff_t *kd,
3927 const float *ab,
3928 const ptrdiff_t *ldab,
3929 const float *anorm,
3930 float *rcond,
3931 float *work,
3932 float *rwork,
3933 ptrdiff_t *info
3934);
3935
3936/* Source: cpbequ.f */
3937#define cpbequ FORTRAN_WRAPPER(cpbequ)
3938extern void cpbequ(
3939 const char *uplo,
3940 const ptrdiff_t *n,
3941 const ptrdiff_t *kd,
3942 const float *ab,
3943 const ptrdiff_t *ldab,
3944 float *s,
3945 float *scond,
3946 float *amax,
3947 ptrdiff_t *info
3948);
3949
3950/* Source: cpbrfs.f */
3951#define cpbrfs FORTRAN_WRAPPER(cpbrfs)
3952extern void cpbrfs(
3953 const char *uplo,
3954 const ptrdiff_t *n,
3955 const ptrdiff_t *kd,
3956 const ptrdiff_t *nrhs,
3957 const float *ab,
3958 const ptrdiff_t *ldab,
3959 const float *afb,
3960 const ptrdiff_t *ldafb,
3961 const float *b,
3962 const ptrdiff_t *ldb,
3963 float *x,
3964 const ptrdiff_t *ldx,
3965 float *ferr,
3966 float *berr,
3967 float *work,
3968 float *rwork,
3969 ptrdiff_t *info
3970);
3971
3972/* Source: cpbstf.f */
3973#define cpbstf FORTRAN_WRAPPER(cpbstf)
3974extern void cpbstf(
3975 const char *uplo,
3976 const ptrdiff_t *n,
3977 const ptrdiff_t *kd,
3978 float *ab,
3979 const ptrdiff_t *ldab,
3980 ptrdiff_t *info
3981);
3982
3983/* Source: cpbsv.f */
3984#define cpbsv FORTRAN_WRAPPER(cpbsv)
3985extern void cpbsv(
3986 const char *uplo,
3987 const ptrdiff_t *n,
3988 const ptrdiff_t *kd,
3989 const ptrdiff_t *nrhs,
3990 float *ab,
3991 const ptrdiff_t *ldab,
3992 float *b,
3993 const ptrdiff_t *ldb,
3994 ptrdiff_t *info
3995);
3996
3997/* Source: cpbsvx.f */
3998#define cpbsvx FORTRAN_WRAPPER(cpbsvx)
3999extern void cpbsvx(
4000 const char *fact,
4001 const char *uplo,
4002 const ptrdiff_t *n,
4003 const ptrdiff_t *kd,
4004 const ptrdiff_t *nrhs,
4005 float *ab,
4006 const ptrdiff_t *ldab,
4007 float *afb,
4008 const ptrdiff_t *ldafb,
4009 char *equed,
4010 float *s,
4011 float *b,
4012 const ptrdiff_t *ldb,
4013 float *x,
4014 const ptrdiff_t *ldx,
4015 float *rcond,
4016 float *ferr,
4017 float *berr,
4018 float *work,
4019 float *rwork,
4020 ptrdiff_t *info
4021);
4022
4023/* Source: cpbtf2.f */
4024#define cpbtf2 FORTRAN_WRAPPER(cpbtf2)
4025extern void cpbtf2(
4026 const char *uplo,
4027 const ptrdiff_t *n,
4028 const ptrdiff_t *kd,
4029 float *ab,
4030 const ptrdiff_t *ldab,
4031 ptrdiff_t *info
4032);
4033
4034/* Source: cpbtrf.f */
4035#define cpbtrf FORTRAN_WRAPPER(cpbtrf)
4036extern void cpbtrf(
4037 const char *uplo,
4038 const ptrdiff_t *n,
4039 const ptrdiff_t *kd,
4040 float *ab,
4041 const ptrdiff_t *ldab,
4042 ptrdiff_t *info
4043);
4044
4045/* Source: cpbtrs.f */
4046#define cpbtrs FORTRAN_WRAPPER(cpbtrs)
4047extern void cpbtrs(
4048 const char *uplo,
4049 const ptrdiff_t *n,
4050 const ptrdiff_t *kd,
4051 const ptrdiff_t *nrhs,
4052 const float *ab,
4053 const ptrdiff_t *ldab,
4054 float *b,
4055 const ptrdiff_t *ldb,
4056 ptrdiff_t *info
4057);
4058
4059/* Source: cpftrf.f */
4060#define cpftrf FORTRAN_WRAPPER(cpftrf)
4061extern void cpftrf(
4062 const char *transr,
4063 const char *uplo,
4064 const ptrdiff_t *n,
4065 float *a,
4066 ptrdiff_t *info
4067);
4068
4069/* Source: cpftri.f */
4070#define cpftri FORTRAN_WRAPPER(cpftri)
4071extern void cpftri(
4072 const char *transr,
4073 const char *uplo,
4074 const ptrdiff_t *n,
4075 float *a,
4076 ptrdiff_t *info
4077);
4078
4079/* Source: cpftrs.f */
4080#define cpftrs FORTRAN_WRAPPER(cpftrs)
4081extern void cpftrs(
4082 const char *transr,
4083 const char *uplo,
4084 const ptrdiff_t *n,
4085 const ptrdiff_t *nrhs,
4086 const float *a,
4087 float *b,
4088 const ptrdiff_t *ldb,
4089 ptrdiff_t *info
4090);
4091
4092/* Source: cpocon.f */
4093#define cpocon FORTRAN_WRAPPER(cpocon)
4094extern void cpocon(
4095 const char *uplo,
4096 const ptrdiff_t *n,
4097 const float *a,
4098 const ptrdiff_t *lda,
4099 const float *anorm,
4100 float *rcond,
4101 float *work,
4102 float *rwork,
4103 ptrdiff_t *info
4104);
4105
4106/* Source: cpoequ.f */
4107#define cpoequ FORTRAN_WRAPPER(cpoequ)
4108extern void cpoequ(
4109 const ptrdiff_t *n,
4110 const float *a,
4111 const ptrdiff_t *lda,
4112 float *s,
4113 float *scond,
4114 float *amax,
4115 ptrdiff_t *info
4116);
4117
4118/* Source: cpoequb.f */
4119#define cpoequb FORTRAN_WRAPPER(cpoequb)
4120extern void cpoequb(
4121 const ptrdiff_t *n,
4122 const float *a,
4123 const ptrdiff_t *lda,
4124 float *s,
4125 float *scond,
4126 float *amax,
4127 ptrdiff_t *info
4128);
4129
4130/* Source: cporfs.f */
4131#define cporfs FORTRAN_WRAPPER(cporfs)
4132extern void cporfs(
4133 const char *uplo,
4134 const ptrdiff_t *n,
4135 const ptrdiff_t *nrhs,
4136 const float *a,
4137 const ptrdiff_t *lda,
4138 const float *af,
4139 const ptrdiff_t *ldaf,
4140 const float *b,
4141 const ptrdiff_t *ldb,
4142 float *x,
4143 const ptrdiff_t *ldx,
4144 float *ferr,
4145 float *berr,
4146 float *work,
4147 float *rwork,
4148 ptrdiff_t *info
4149);
4150
4151/* Source: cposv.f */
4152#define cposv FORTRAN_WRAPPER(cposv)
4153extern void cposv(
4154 const char *uplo,
4155 const ptrdiff_t *n,
4156 const ptrdiff_t *nrhs,
4157 float *a,
4158 const ptrdiff_t *lda,
4159 float *b,
4160 const ptrdiff_t *ldb,
4161 ptrdiff_t *info
4162);
4163
4164/* Source: cposvx.f */
4165#define cposvx FORTRAN_WRAPPER(cposvx)
4166extern void cposvx(
4167 const char *fact,
4168 const char *uplo,
4169 const ptrdiff_t *n,
4170 const ptrdiff_t *nrhs,
4171 float *a,
4172 const ptrdiff_t *lda,
4173 float *af,
4174 const ptrdiff_t *ldaf,
4175 char *equed,
4176 float *s,
4177 float *b,
4178 const ptrdiff_t *ldb,
4179 float *x,
4180 const ptrdiff_t *ldx,
4181 float *rcond,
4182 float *ferr,
4183 float *berr,
4184 float *work,
4185 float *rwork,
4186 ptrdiff_t *info
4187);
4188
4189/* Source: cpotf2.f */
4190#define cpotf2 FORTRAN_WRAPPER(cpotf2)
4191extern void cpotf2(
4192 const char *uplo,
4193 const ptrdiff_t *n,
4194 float *a,
4195 const ptrdiff_t *lda,
4196 ptrdiff_t *info
4197);
4198
4199/* Source: cpotrf.f */
4200#define cpotrf FORTRAN_WRAPPER(cpotrf)
4201extern void cpotrf(
4202 const char *uplo,
4203 const ptrdiff_t *n,
4204 float *a,
4205 const ptrdiff_t *lda,
4206 ptrdiff_t *info
4207);
4208
4209/* Source: cpotri.f */
4210#define cpotri FORTRAN_WRAPPER(cpotri)
4211extern void cpotri(
4212 const char *uplo,
4213 const ptrdiff_t *n,
4214 float *a,
4215 const ptrdiff_t *lda,
4216 ptrdiff_t *info
4217);
4218
4219/* Source: cpotrs.f */
4220#define cpotrs FORTRAN_WRAPPER(cpotrs)
4221extern void cpotrs(
4222 const char *uplo,
4223 const ptrdiff_t *n,
4224 const ptrdiff_t *nrhs,
4225 const float *a,
4226 const ptrdiff_t *lda,
4227 float *b,
4228 const ptrdiff_t *ldb,
4229 ptrdiff_t *info
4230);
4231
4232/* Source: cppcon.f */
4233#define cppcon FORTRAN_WRAPPER(cppcon)
4234extern void cppcon(
4235 const char *uplo,
4236 const ptrdiff_t *n,
4237 const float *ap,
4238 const float *anorm,
4239 float *rcond,
4240 float *work,
4241 float *rwork,
4242 ptrdiff_t *info
4243);
4244
4245/* Source: cppequ.f */
4246#define cppequ FORTRAN_WRAPPER(cppequ)
4247extern void cppequ(
4248 const char *uplo,
4249 const ptrdiff_t *n,
4250 const float *ap,
4251 float *s,
4252 float *scond,
4253 float *amax,
4254 ptrdiff_t *info
4255);
4256
4257/* Source: cpprfs.f */
4258#define cpprfs FORTRAN_WRAPPER(cpprfs)
4259extern void cpprfs(
4260 const char *uplo,
4261 const ptrdiff_t *n,
4262 const ptrdiff_t *nrhs,
4263 const float *ap,
4264 const float *afp,
4265 const float *b,
4266 const ptrdiff_t *ldb,
4267 float *x,
4268 const ptrdiff_t *ldx,
4269 float *ferr,
4270 float *berr,
4271 float *work,
4272 float *rwork,
4273 ptrdiff_t *info
4274);
4275
4276/* Source: cppsv.f */
4277#define cppsv FORTRAN_WRAPPER(cppsv)
4278extern void cppsv(
4279 const char *uplo,
4280 const ptrdiff_t *n,
4281 const ptrdiff_t *nrhs,
4282 float *ap,
4283 float *b,
4284 const ptrdiff_t *ldb,
4285 ptrdiff_t *info
4286);
4287
4288/* Source: cppsvx.f */
4289#define cppsvx FORTRAN_WRAPPER(cppsvx)
4290extern void cppsvx(
4291 const char *fact,
4292 const char *uplo,
4293 const ptrdiff_t *n,
4294 const ptrdiff_t *nrhs,
4295 float *ap,
4296 float *afp,
4297 char *equed,
4298 float *s,
4299 float *b,
4300 const ptrdiff_t *ldb,
4301 float *x,
4302 const ptrdiff_t *ldx,
4303 float *rcond,
4304 float *ferr,
4305 float *berr,
4306 float *work,
4307 float *rwork,
4308 ptrdiff_t *info
4309);
4310
4311/* Source: cpptrf.f */
4312#define cpptrf FORTRAN_WRAPPER(cpptrf)
4313extern void cpptrf(
4314 const char *uplo,
4315 const ptrdiff_t *n,
4316 float *ap,
4317 ptrdiff_t *info
4318);
4319
4320/* Source: cpptri.f */
4321#define cpptri FORTRAN_WRAPPER(cpptri)
4322extern void cpptri(
4323 const char *uplo,
4324 const ptrdiff_t *n,
4325 float *ap,
4326 ptrdiff_t *info
4327);
4328
4329/* Source: cpptrs.f */
4330#define cpptrs FORTRAN_WRAPPER(cpptrs)
4331extern void cpptrs(
4332 const char *uplo,
4333 const ptrdiff_t *n,
4334 const ptrdiff_t *nrhs,
4335 const float *ap,
4336 float *b,
4337 const ptrdiff_t *ldb,
4338 ptrdiff_t *info
4339);
4340
4341/* Source: cpstf2.f */
4342#define cpstf2 FORTRAN_WRAPPER(cpstf2)
4343extern void cpstf2(
4344 const char *uplo,
4345 const ptrdiff_t *n,
4346 float *a,
4347 const ptrdiff_t *lda,
4348 ptrdiff_t *piv,
4349 ptrdiff_t *rank,
4350 const float *tol,
4351 float *work,
4352 ptrdiff_t *info
4353);
4354
4355/* Source: cpstrf.f */
4356#define cpstrf FORTRAN_WRAPPER(cpstrf)
4357extern void cpstrf(
4358 const char *uplo,
4359 const ptrdiff_t *n,
4360 float *a,
4361 const ptrdiff_t *lda,
4362 ptrdiff_t *piv,
4363 ptrdiff_t *rank,
4364 const float *tol,
4365 float *work,
4366 ptrdiff_t *info
4367);
4368
4369/* Source: cptcon.f */
4370#define cptcon FORTRAN_WRAPPER(cptcon)
4371extern void cptcon(
4372 const ptrdiff_t *n,
4373 const float *d,
4374 const float *e,
4375 const float *anorm,
4376 float *rcond,
4377 float *rwork,
4378 ptrdiff_t *info
4379);
4380
4381/* Source: cpteqr.f */
4382#define cpteqr FORTRAN_WRAPPER(cpteqr)
4383extern void cpteqr(
4384 const char *compz,
4385 const ptrdiff_t *n,
4386 float *d,
4387 float *e,
4388 float *z,
4389 const ptrdiff_t *ldz,
4390 float *work,
4391 ptrdiff_t *info
4392);
4393
4394/* Source: cptrfs.f */
4395#define cptrfs FORTRAN_WRAPPER(cptrfs)
4396extern void cptrfs(
4397 const char *uplo,
4398 const ptrdiff_t *n,
4399 const ptrdiff_t *nrhs,
4400 const float *d,
4401 const float *e,
4402 const float *df,
4403 const float *ef,
4404 const float *b,
4405 const ptrdiff_t *ldb,
4406 float *x,
4407 const ptrdiff_t *ldx,
4408 float *ferr,
4409 float *berr,
4410 float *work,
4411 float *rwork,
4412 ptrdiff_t *info
4413);
4414
4415/* Source: cptsv.f */
4416#define cptsv FORTRAN_WRAPPER(cptsv)
4417extern void cptsv(
4418 const ptrdiff_t *n,
4419 const ptrdiff_t *nrhs,
4420 float *d,
4421 float *e,
4422 float *b,
4423 const ptrdiff_t *ldb,
4424 ptrdiff_t *info
4425);
4426
4427/* Source: cptsvx.f */
4428#define cptsvx FORTRAN_WRAPPER(cptsvx)
4429extern void cptsvx(
4430 const char *fact,
4431 const ptrdiff_t *n,
4432 const ptrdiff_t *nrhs,
4433 const float *d,
4434 const float *e,
4435 float *df,
4436 float *ef,
4437 const float *b,
4438 const ptrdiff_t *ldb,
4439 float *x,
4440 const ptrdiff_t *ldx,
4441 float *rcond,
4442 float *ferr,
4443 float *berr,
4444 float *work,
4445 float *rwork,
4446 ptrdiff_t *info
4447);
4448
4449/* Source: cpttrf.f */
4450#define cpttrf FORTRAN_WRAPPER(cpttrf)
4451extern void cpttrf(
4452 const ptrdiff_t *n,
4453 float *d,
4454 float *e,
4455 ptrdiff_t *info
4456);
4457
4458/* Source: cpttrs.f */
4459#define cpttrs FORTRAN_WRAPPER(cpttrs)
4460extern void cpttrs(
4461 const char *uplo,
4462 const ptrdiff_t *n,
4463 const ptrdiff_t *nrhs,
4464 const float *d,
4465 const float *e,
4466 float *b,
4467 const ptrdiff_t *ldb,
4468 ptrdiff_t *info
4469);
4470
4471/* Source: cptts2.f */
4472#define cptts2 FORTRAN_WRAPPER(cptts2)
4473extern void cptts2(
4474 const ptrdiff_t *iuplo,
4475 const ptrdiff_t *n,
4476 const ptrdiff_t *nrhs,
4477 const float *d,
4478 const float *e,
4479 float *b,
4480 const ptrdiff_t *ldb
4481);
4482
4483/* Source: crot.f */
4484#define crot FORTRAN_WRAPPER(crot)
4485extern void crot(
4486 const ptrdiff_t *n,
4487 float *cx,
4488 const ptrdiff_t *incx,
4489 float *cy,
4490 const ptrdiff_t *incy,
4491 const float *c,
4492 const float *s
4493);
4494
4495/* Source: cspcon.f */
4496#define cspcon FORTRAN_WRAPPER(cspcon)
4497extern void cspcon(
4498 const char *uplo,
4499 const ptrdiff_t *n,
4500 const float *ap,
4501 const ptrdiff_t *ipiv,
4502 const float *anorm,
4503 float *rcond,
4504 float *work,
4505 ptrdiff_t *info
4506);
4507
4508/* Source: cspmv.f */
4509#define cspmv FORTRAN_WRAPPER(cspmv)
4510extern void cspmv(
4511 const char *uplo,
4512 const ptrdiff_t *n,
4513 const float *alpha,
4514 const float *ap,
4515 const float *x,
4516 const ptrdiff_t *incx,
4517 const float *beta,
4518 float *y,
4519 const ptrdiff_t *incy
4520);
4521
4522/* Source: cspr.f */
4523#define cspr FORTRAN_WRAPPER(cspr)
4524extern void cspr(
4525 const char *uplo,
4526 const ptrdiff_t *n,
4527 const float *alpha,
4528 const float *x,
4529 const ptrdiff_t *incx,
4530 float *ap
4531);
4532
4533/* Source: csprfs.f */
4534#define csprfs FORTRAN_WRAPPER(csprfs)
4535extern void csprfs(
4536 const char *uplo,
4537 const ptrdiff_t *n,
4538 const ptrdiff_t *nrhs,
4539 const float *ap,
4540 const float *afp,
4541 const ptrdiff_t *ipiv,
4542 const float *b,
4543 const ptrdiff_t *ldb,
4544 float *x,
4545 const ptrdiff_t *ldx,
4546 float *ferr,
4547 float *berr,
4548 float *work,
4549 float *rwork,
4550 ptrdiff_t *info
4551);
4552
4553/* Source: cspsv.f */
4554#define cspsv FORTRAN_WRAPPER(cspsv)
4555extern void cspsv(
4556 const char *uplo,
4557 const ptrdiff_t *n,
4558 const ptrdiff_t *nrhs,
4559 float *ap,
4560 ptrdiff_t *ipiv,
4561 float *b,
4562 const ptrdiff_t *ldb,
4563 ptrdiff_t *info
4564);
4565
4566/* Source: cspsvx.f */
4567#define cspsvx FORTRAN_WRAPPER(cspsvx)
4568extern void cspsvx(
4569 const char *fact,
4570 const char *uplo,
4571 const ptrdiff_t *n,
4572 const ptrdiff_t *nrhs,
4573 const float *ap,
4574 float *afp,
4575 ptrdiff_t *ipiv,
4576 const float *b,
4577 const ptrdiff_t *ldb,
4578 float *x,
4579 const ptrdiff_t *ldx,
4580 float *rcond,
4581 float *ferr,
4582 float *berr,
4583 float *work,
4584 float *rwork,
4585 ptrdiff_t *info
4586);
4587
4588/* Source: csptrf.f */
4589#define csptrf FORTRAN_WRAPPER(csptrf)
4590extern void csptrf(
4591 const char *uplo,
4592 const ptrdiff_t *n,
4593 float *ap,
4594 ptrdiff_t *ipiv,
4595 ptrdiff_t *info
4596);
4597
4598/* Source: csptri.f */
4599#define csptri FORTRAN_WRAPPER(csptri)
4600extern void csptri(
4601 const char *uplo,
4602 const ptrdiff_t *n,
4603 float *ap,
4604 const ptrdiff_t *ipiv,
4605 float *work,
4606 ptrdiff_t *info
4607);
4608
4609/* Source: csptrs.f */
4610#define csptrs FORTRAN_WRAPPER(csptrs)
4611extern void csptrs(
4612 const char *uplo,
4613 const ptrdiff_t *n,
4614 const ptrdiff_t *nrhs,
4615 const float *ap,
4616 const ptrdiff_t *ipiv,
4617 float *b,
4618 const ptrdiff_t *ldb,
4619 ptrdiff_t *info
4620);
4621
4622/* Source: csrscl.f */
4623#define csrscl FORTRAN_WRAPPER(csrscl)
4624extern void csrscl(
4625 const ptrdiff_t *n,
4626 const float *sa,
4627 float *sx,
4628 const ptrdiff_t *incx
4629);
4630
4631/* Source: cstedc.f */
4632#define cstedc FORTRAN_WRAPPER(cstedc)
4633extern void cstedc(
4634 const char *compz,
4635 const ptrdiff_t *n,
4636 float *d,
4637 float *e,
4638 float *z,
4639 const ptrdiff_t *ldz,
4640 float *work,
4641 const ptrdiff_t *lwork,
4642 float *rwork,
4643 const ptrdiff_t *lrwork,
4644 ptrdiff_t *iwork,
4645 const ptrdiff_t *liwork,
4646 ptrdiff_t *info
4647);
4648
4649/* Source: cstegr.f */
4650#define cstegr FORTRAN_WRAPPER(cstegr)
4651extern void cstegr(
4652 const char *jobz,
4653 const char *range,
4654 const ptrdiff_t *n,
4655 float *d,
4656 float *e,
4657 const float *vl,
4658 const float *vu,
4659 const ptrdiff_t *il,
4660 const ptrdiff_t *iu,
4661 const float *abstol,
4662 ptrdiff_t *m,
4663 float *w,
4664 float *z,
4665 const ptrdiff_t *ldz,
4666 ptrdiff_t *isuppz,
4667 float *work,
4668 const ptrdiff_t *lwork,
4669 ptrdiff_t *iwork,
4670 const ptrdiff_t *liwork,
4671 ptrdiff_t *info
4672);
4673
4674/* Source: cstein.f */
4675#define cstein FORTRAN_WRAPPER(cstein)
4676extern void cstein(
4677 const ptrdiff_t *n,
4678 const float *d,
4679 const float *e,
4680 const ptrdiff_t *m,
4681 const float *w,
4682 const ptrdiff_t *iblock,
4683 const ptrdiff_t *isplit,
4684 float *z,
4685 const ptrdiff_t *ldz,
4686 float *work,
4687 ptrdiff_t *iwork,
4688 ptrdiff_t *ifail,
4689 ptrdiff_t *info
4690);
4691
4692/* Source: cstemr.f */
4693#define cstemr FORTRAN_WRAPPER(cstemr)
4694extern void cstemr(
4695 const char *jobz,
4696 const char *range,
4697 const ptrdiff_t *n,
4698 float *d,
4699 float *e,
4700 const float *vl,
4701 const float *vu,
4702 const ptrdiff_t *il,
4703 const ptrdiff_t *iu,
4704 ptrdiff_t *m,
4705 float *w,
4706 float *z,
4707 const ptrdiff_t *ldz,
4708 const ptrdiff_t *nzc,
4709 ptrdiff_t *isuppz,
4710 ptrdiff_t *tryrac,
4711 float *work,
4712 const ptrdiff_t *lwork,
4713 ptrdiff_t *iwork,
4714 const ptrdiff_t *liwork,
4715 ptrdiff_t *info
4716);
4717
4718/* Source: csteqr.f */
4719#define csteqr FORTRAN_WRAPPER(csteqr)
4720extern void csteqr(
4721 const char *compz,
4722 const ptrdiff_t *n,
4723 float *d,
4724 float *e,
4725 float *z,
4726 const ptrdiff_t *ldz,
4727 float *work,
4728 ptrdiff_t *info
4729);
4730
4731/* Source: csycon.f */
4732#define csycon FORTRAN_WRAPPER(csycon)
4733extern void csycon(
4734 const char *uplo,
4735 const ptrdiff_t *n,
4736 const float *a,
4737 const ptrdiff_t *lda,
4738 const ptrdiff_t *ipiv,
4739 const float *anorm,
4740 float *rcond,
4741 float *work,
4742 ptrdiff_t *info
4743);
4744
4745/* Source: csycon_rook.f */
4746#define csycon_rook FORTRAN_WRAPPER(csycon_rook)
4747extern void csycon_rook(
4748 const char *uplo,
4749 const ptrdiff_t *n,
4750 const float *a,
4751 const ptrdiff_t *lda,
4752 const ptrdiff_t *ipiv,
4753 const float *anorm,
4754 float *rcond,
4755 float *work,
4756 ptrdiff_t *info
4757);
4758
4759/* Source: csyconv.f */
4760#define csyconv FORTRAN_WRAPPER(csyconv)
4761extern void csyconv(
4762 const char *uplo,
4763 const char *way,
4764 const ptrdiff_t *n,
4765 float *a,
4766 const ptrdiff_t *lda,
4767 const ptrdiff_t *ipiv,
4768 float *work,
4769 ptrdiff_t *info
4770);
4771
4772/* Source: csyequb.f */
4773#define csyequb FORTRAN_WRAPPER(csyequb)
4774extern void csyequb(
4775 char *uplo,
4776 const ptrdiff_t *n,
4777 const float *a,
4778 const ptrdiff_t *lda,
4779 float *s,
4780 float *scond,
4781 float *amax,
4782 float *work,
4783 ptrdiff_t *info
4784);
4785
4786/* Source: csymv.f */
4787#define csymv FORTRAN_WRAPPER(csymv)
4788extern void csymv(
4789 const char *uplo,
4790 const ptrdiff_t *n,
4791 const float *alpha,
4792 const float *a,
4793 const ptrdiff_t *lda,
4794 const float *x,
4795 const ptrdiff_t *incx,
4796 const float *beta,
4797 float *y,
4798 const ptrdiff_t *incy
4799);
4800
4801/* Source: csyr.f */
4802#define csyr FORTRAN_WRAPPER(csyr)
4803extern void csyr(
4804 const char *uplo,
4805 const ptrdiff_t *n,
4806 const float *alpha,
4807 const float *x,
4808 const ptrdiff_t *incx,
4809 float *a,
4810 const ptrdiff_t *lda
4811);
4812
4813/* Source: csyrfs.f */
4814#define csyrfs FORTRAN_WRAPPER(csyrfs)
4815extern void csyrfs(
4816 const char *uplo,
4817 const ptrdiff_t *n,
4818 const ptrdiff_t *nrhs,
4819 const float *a,
4820 const ptrdiff_t *lda,
4821 const float *af,
4822 const ptrdiff_t *ldaf,
4823 const ptrdiff_t *ipiv,
4824 const float *b,
4825 const ptrdiff_t *ldb,
4826 float *x,
4827 const ptrdiff_t *ldx,
4828 float *ferr,
4829 float *berr,
4830 float *work,
4831 float *rwork,
4832 ptrdiff_t *info
4833);
4834
4835/* Source: csysv.f */
4836#define csysv FORTRAN_WRAPPER(csysv)
4837extern void csysv(
4838 const char *uplo,
4839 const ptrdiff_t *n,
4840 const ptrdiff_t *nrhs,
4841 float *a,
4842 const ptrdiff_t *lda,
4843 ptrdiff_t *ipiv,
4844 float *b,
4845 const ptrdiff_t *ldb,
4846 float *work,
4847 const ptrdiff_t *lwork,
4848 ptrdiff_t *info
4849);
4850
4851/* Source: csysv_rook.f */
4852#define csysv_rook FORTRAN_WRAPPER(csysv_rook)
4853extern void csysv_rook(
4854 const char *uplo,
4855 const ptrdiff_t *n,
4856 const ptrdiff_t *nrhs,
4857 float *a,
4858 const ptrdiff_t *lda,
4859 ptrdiff_t *ipiv,
4860 float *b,
4861 const ptrdiff_t *ldb,
4862 float *work,
4863 const ptrdiff_t *lwork,
4864 ptrdiff_t *info
4865);
4866
4867/* Source: csysvx.f */
4868#define csysvx FORTRAN_WRAPPER(csysvx)
4869extern void csysvx(
4870 const char *fact,
4871 const char *uplo,
4872 const ptrdiff_t *n,
4873 const ptrdiff_t *nrhs,
4874 const float *a,
4875 const ptrdiff_t *lda,
4876 float *af,
4877 const ptrdiff_t *ldaf,
4878 ptrdiff_t *ipiv,
4879 const float *b,
4880 const ptrdiff_t *ldb,
4881 float *x,
4882 const ptrdiff_t *ldx,
4883 float *rcond,
4884 float *ferr,
4885 float *berr,
4886 float *work,
4887 const ptrdiff_t *lwork,
4888 float *rwork,
4889 ptrdiff_t *info
4890);
4891
4892/* Source: csyswapr.f */
4893#define csyswapr FORTRAN_WRAPPER(csyswapr)
4894extern void csyswapr(
4895 const char *uplo,
4896 const ptrdiff_t *n,
4897 float *a,
4898 const ptrdiff_t *lda,
4899 const ptrdiff_t *i1,
4900 const ptrdiff_t *i2
4901);
4902
4903/* Source: csytf2.f */
4904#define csytf2 FORTRAN_WRAPPER(csytf2)
4905extern void csytf2(
4906 const char *uplo,
4907 const ptrdiff_t *n,
4908 float *a,
4909 const ptrdiff_t *lda,
4910 ptrdiff_t *ipiv,
4911 ptrdiff_t *info
4912);
4913
4914/* Source: csytf2_rook.f */
4915#define csytf2_rook FORTRAN_WRAPPER(csytf2_rook)
4916extern void csytf2_rook(
4917 const char *uplo,
4918 const ptrdiff_t *n,
4919 float *a,
4920 const ptrdiff_t *lda,
4921 ptrdiff_t *ipiv,
4922 ptrdiff_t *info
4923);
4924
4925/* Source: csytrf.f */
4926#define csytrf FORTRAN_WRAPPER(csytrf)
4927extern void csytrf(
4928 const char *uplo,
4929 const ptrdiff_t *n,
4930 float *a,
4931 const ptrdiff_t *lda,
4932 ptrdiff_t *ipiv,
4933 float *work,
4934 const ptrdiff_t *lwork,
4935 ptrdiff_t *info
4936);
4937
4938/* Source: csytrf_rook.f */
4939#define csytrf_rook FORTRAN_WRAPPER(csytrf_rook)
4940extern void csytrf_rook(
4941 const char *uplo,
4942 const ptrdiff_t *n,
4943 float *a,
4944 const ptrdiff_t *lda,
4945 ptrdiff_t *ipiv,
4946 float *work,
4947 const ptrdiff_t *lwork,
4948 ptrdiff_t *info
4949);
4950
4951/* Source: csytri.f */
4952#define csytri FORTRAN_WRAPPER(csytri)
4953extern void csytri(
4954 const char *uplo,
4955 const ptrdiff_t *n,
4956 float *a,
4957 const ptrdiff_t *lda,
4958 const ptrdiff_t *ipiv,
4959 float *work,
4960 ptrdiff_t *info
4961);
4962
4963/* Source: csytri2.f */
4964#define csytri2 FORTRAN_WRAPPER(csytri2)
4965extern void csytri2(
4966 const char *uplo,
4967 const ptrdiff_t *n,
4968 float *a,
4969 const ptrdiff_t *lda,
4970 const ptrdiff_t *ipiv,
4971 float *work,
4972 const ptrdiff_t *lwork,
4973 ptrdiff_t *info
4974);
4975
4976/* Source: csytri2x.f */
4977#define csytri2x FORTRAN_WRAPPER(csytri2x)
4978extern void csytri2x(
4979 const char *uplo,
4980 const ptrdiff_t *n,
4981 float *a,
4982 const ptrdiff_t *lda,
4983 const ptrdiff_t *ipiv,
4984 float *work,
4985 ptrdiff_t *nb,
4986 ptrdiff_t *info
4987);
4988
4989/* Source: csytri_rook.f */
4990#define csytri_rook FORTRAN_WRAPPER(csytri_rook)
4991extern void csytri_rook(
4992 const char *uplo,
4993 const ptrdiff_t *n,
4994 float *a,
4995 const ptrdiff_t *lda,
4996 const ptrdiff_t *ipiv,
4997 float *work,
4998 ptrdiff_t *info
4999);
5000
5001/* Source: csytrs.f */
5002#define csytrs FORTRAN_WRAPPER(csytrs)
5003extern void csytrs(
5004 const char *uplo,
5005 const ptrdiff_t *n,
5006 const ptrdiff_t *nrhs,
5007 const float *a,
5008 const ptrdiff_t *lda,
5009 const ptrdiff_t *ipiv,
5010 float *b,
5011 const ptrdiff_t *ldb,
5012 ptrdiff_t *info
5013);
5014
5015/* Source: csytrs2.f */
5016#define csytrs2 FORTRAN_WRAPPER(csytrs2)
5017extern void csytrs2(
5018 const char *uplo,
5019 const ptrdiff_t *n,
5020 const ptrdiff_t *nrhs,
5021 const float *a,
5022 const ptrdiff_t *lda,
5023 const ptrdiff_t *ipiv,
5024 float *b,
5025 const ptrdiff_t *ldb,
5026 float *work,
5027 ptrdiff_t *info
5028);
5029
5030/* Source: csytrs_rook.f */
5031#define csytrs_rook FORTRAN_WRAPPER(csytrs_rook)
5032extern void csytrs_rook(
5033 const char *uplo,
5034 const ptrdiff_t *n,
5035 const ptrdiff_t *nrhs,
5036 const float *a,
5037 const ptrdiff_t *lda,
5038 const ptrdiff_t *ipiv,
5039 float *b,
5040 const ptrdiff_t *ldb,
5041 ptrdiff_t *info
5042);
5043
5044/* Source: ctbcon.f */
5045#define ctbcon FORTRAN_WRAPPER(ctbcon)
5046extern void ctbcon(
5047 const char *norm,
5048 const char *uplo,
5049 const char *diag,
5050 const ptrdiff_t *n,
5051 const ptrdiff_t *kd,
5052 const float *ab,
5053 const ptrdiff_t *ldab,
5054 float *rcond,
5055 float *work,
5056 float *rwork,
5057 ptrdiff_t *info
5058);
5059
5060/* Source: ctbrfs.f */
5061#define ctbrfs FORTRAN_WRAPPER(ctbrfs)
5062extern void ctbrfs(
5063 const char *uplo,
5064 const char *trans,
5065 const char *diag,
5066 const ptrdiff_t *n,
5067 const ptrdiff_t *kd,
5068 const ptrdiff_t *nrhs,
5069 const float *ab,
5070 const ptrdiff_t *ldab,
5071 const float *b,
5072 const ptrdiff_t *ldb,
5073 const float *x,
5074 const ptrdiff_t *ldx,
5075 float *ferr,
5076 float *berr,
5077 float *work,
5078 float *rwork,
5079 ptrdiff_t *info
5080);
5081
5082/* Source: ctbtrs.f */
5083#define ctbtrs FORTRAN_WRAPPER(ctbtrs)
5084extern void ctbtrs(
5085 const char *uplo,
5086 const char *trans,
5087 const char *diag,
5088 const ptrdiff_t *n,
5089 const ptrdiff_t *kd,
5090 const ptrdiff_t *nrhs,
5091 const float *ab,
5092 const ptrdiff_t *ldab,
5093 float *b,
5094 const ptrdiff_t *ldb,
5095 ptrdiff_t *info
5096);
5097
5098/* Source: ctfsm.f */
5099#define ctfsm FORTRAN_WRAPPER(ctfsm)
5100extern void ctfsm(
5101 const char *transr,
5102 const char *side,
5103 const char *uplo,
5104 const char *trans,
5105 const char *diag,
5106 const ptrdiff_t *m,
5107 const ptrdiff_t *n,
5108 const float *alpha,
5109 const float *a,
5110 float *b,
5111 const ptrdiff_t *ldb
5112);
5113
5114/* Source: ctftri.f */
5115#define ctftri FORTRAN_WRAPPER(ctftri)
5116extern void ctftri(
5117 const char *transr,
5118 const char *uplo,
5119 const char *diag,
5120 const ptrdiff_t *n,
5121 float *a,
5122 ptrdiff_t *info
5123);
5124
5125/* Source: ctfttp.f */
5126#define ctfttp FORTRAN_WRAPPER(ctfttp)
5127extern void ctfttp(
5128 const char *transr,
5129 const char *uplo,
5130 const ptrdiff_t *n,
5131 const float *arf,
5132 float *ap,
5133 ptrdiff_t *info
5134);
5135
5136/* Source: ctfttr.f */
5137#define ctfttr FORTRAN_WRAPPER(ctfttr)
5138extern void ctfttr(
5139 const char *transr,
5140 const char *uplo,
5141 const ptrdiff_t *n,
5142 const float *arf,
5143 float *a,
5144 const ptrdiff_t *lda,
5145 ptrdiff_t *info
5146);
5147
5148/* Source: ctgevc.f */
5149#define ctgevc FORTRAN_WRAPPER(ctgevc)
5150extern void ctgevc(
5151 const char *side,
5152 const char *howmny,
5153 const ptrdiff_t *select,
5154 const ptrdiff_t *n,
5155 const float *s,
5156 const ptrdiff_t *lds,
5157 const float *p,
5158 const ptrdiff_t *ldp,
5159 float *vl,
5160 const ptrdiff_t *ldvl,
5161 float *vr,
5162 const ptrdiff_t *ldvr,
5163 const ptrdiff_t *mm,
5164 ptrdiff_t *m,
5165 float *work,
5166 float *rwork,
5167 ptrdiff_t *info
5168);
5169
5170/* Source: ctgex2.f */
5171#define ctgex2 FORTRAN_WRAPPER(ctgex2)
5172extern void ctgex2(
5173 const ptrdiff_t *wantq,
5174 const ptrdiff_t *wantz,
5175 const ptrdiff_t *n,
5176 float *a,
5177 const ptrdiff_t *lda,
5178 float *b,
5179 const ptrdiff_t *ldb,
5180 float *q,
5181 const ptrdiff_t *ldq,
5182 float *z,
5183 const ptrdiff_t *ldz,
5184 const ptrdiff_t *j1_,
5185 ptrdiff_t *info
5186);
5187
5188/* Source: ctgexc.f */
5189#define ctgexc FORTRAN_WRAPPER(ctgexc)
5190extern void ctgexc(
5191 const ptrdiff_t *wantq,
5192 const ptrdiff_t *wantz,
5193 const ptrdiff_t *n,
5194 float *a,
5195 const ptrdiff_t *lda,
5196 float *b,
5197 const ptrdiff_t *ldb,
5198 float *q,
5199 const ptrdiff_t *ldq,
5200 float *z,
5201 const ptrdiff_t *ldz,
5202 const ptrdiff_t *ifst,
5203 ptrdiff_t *ilst,
5204 ptrdiff_t *info
5205);
5206
5207/* Source: ctgsen.f */
5208#define ctgsen FORTRAN_WRAPPER(ctgsen)
5209extern void ctgsen(
5210 const ptrdiff_t *ijob,
5211 const ptrdiff_t *wantq,
5212 const ptrdiff_t *wantz,
5213 const ptrdiff_t *select,
5214 const ptrdiff_t *n,
5215 float *a,
5216 const ptrdiff_t *lda,
5217 float *b,
5218 const ptrdiff_t *ldb,
5219 float *alpha,
5220 float *beta,
5221 float *q,
5222 const ptrdiff_t *ldq,
5223 float *z,
5224 const ptrdiff_t *ldz,
5225 ptrdiff_t *m,
5226 float *pl,
5227 float *pr,
5228 float *dif,
5229 float *work,
5230 const ptrdiff_t *lwork,
5231 ptrdiff_t *iwork,
5232 const ptrdiff_t *liwork,
5233 ptrdiff_t *info
5234);
5235
5236/* Source: ctgsja.f */
5237#define ctgsja FORTRAN_WRAPPER(ctgsja)
5238extern void ctgsja(
5239 const char *jobu,
5240 const char *jobv,
5241 const char *jobq,
5242 const ptrdiff_t *m,
5243 const ptrdiff_t *p,
5244 const ptrdiff_t *n,
5245 const ptrdiff_t *k,
5246 const ptrdiff_t *l,
5247 float *a,
5248 const ptrdiff_t *lda,
5249 float *b,
5250 const ptrdiff_t *ldb,
5251 const float *tola,
5252 const float *tolb,
5253 float *alpha,
5254 float *beta,
5255 float *u,
5256 const ptrdiff_t *ldu,
5257 float *v,
5258 const ptrdiff_t *ldv,
5259 float *q,
5260 const ptrdiff_t *ldq,
5261 float *work,
5262 ptrdiff_t *ncycle,
5263 ptrdiff_t *info
5264);
5265
5266/* Source: ctgsna.f */
5267#define ctgsna FORTRAN_WRAPPER(ctgsna)
5268extern void ctgsna(
5269 const char *job,
5270 const char *howmny,
5271 const ptrdiff_t *select,
5272 const ptrdiff_t *n,
5273 const float *a,
5274 const ptrdiff_t *lda,
5275 const float *b,
5276 const ptrdiff_t *ldb,
5277 const float *vl,
5278 const ptrdiff_t *ldvl,
5279 const float *vr,
5280 const ptrdiff_t *ldvr,
5281 float *s,
5282 float *dif,
5283 const ptrdiff_t *mm,
5284 ptrdiff_t *m,
5285 float *work,
5286 const ptrdiff_t *lwork,
5287 ptrdiff_t *iwork,
5288 ptrdiff_t *info
5289);
5290
5291/* Source: ctgsy2.f */
5292#define ctgsy2 FORTRAN_WRAPPER(ctgsy2)
5293extern void ctgsy2(
5294 const char *trans,
5295 const ptrdiff_t *ijob,
5296 const ptrdiff_t *m,
5297 const ptrdiff_t *n,
5298 const float *a,
5299 const ptrdiff_t *lda,
5300 const float *b,
5301 const ptrdiff_t *ldb,
5302 float *c,
5303 const ptrdiff_t *ldc,
5304 const float *d,
5305 const ptrdiff_t *ldd,
5306 const float *e,
5307 const ptrdiff_t *lde,
5308 float *f,
5309 const ptrdiff_t *ldf,
5310 float *scale,
5311 float *rdsum,
5312 float *rdscal,
5313 ptrdiff_t *info
5314);
5315
5316/* Source: ctgsyl.f */
5317#define ctgsyl FORTRAN_WRAPPER(ctgsyl)
5318extern void ctgsyl(
5319 const char *trans,
5320 const ptrdiff_t *ijob,
5321 const ptrdiff_t *m,
5322 const ptrdiff_t *n,
5323 const float *a,
5324 const ptrdiff_t *lda,
5325 const float *b,
5326 const ptrdiff_t *ldb,
5327 float *c,
5328 const ptrdiff_t *ldc,
5329 const float *d,
5330 const ptrdiff_t *ldd,
5331 const float *e,
5332 const ptrdiff_t *lde,
5333 float *f,
5334 const ptrdiff_t *ldf,
5335 float *scale,
5336 float *dif,
5337 float *work,
5338 const ptrdiff_t *lwork,
5339 ptrdiff_t *iwork,
5340 ptrdiff_t *info
5341);
5342
5343/* Source: ctpcon.f */
5344#define ctpcon FORTRAN_WRAPPER(ctpcon)
5345extern void ctpcon(
5346 const char *norm,
5347 const char *uplo,
5348 const char *diag,
5349 const ptrdiff_t *n,
5350 const float *ap,
5351 float *rcond,
5352 float *work,
5353 float *rwork,
5354 ptrdiff_t *info
5355);
5356
5357/* Source: ctpmqrt.f */
5358#define ctpmqrt FORTRAN_WRAPPER(ctpmqrt)
5359extern void ctpmqrt(
5360 const char *side,
5361 const char *trans,
5362 const ptrdiff_t *m,
5363 const ptrdiff_t *n,
5364 const ptrdiff_t *k,
5365 const ptrdiff_t *l,
5366 const ptrdiff_t *nb,
5367 const float *v,
5368 const ptrdiff_t *ldv,
5369 const float *t,
5370 const ptrdiff_t *ldt,
5371 float *a,
5372 const ptrdiff_t *lda,
5373 float *b,
5374 const ptrdiff_t *ldb,
5375 float *work,
5376 ptrdiff_t *info
5377);
5378
5379/* Source: ctpqrt.f */
5380#define ctpqrt FORTRAN_WRAPPER(ctpqrt)
5381extern void ctpqrt(
5382 const ptrdiff_t *m,
5383 const ptrdiff_t *n,
5384 const ptrdiff_t *l,
5385 const ptrdiff_t *nb,
5386 const float *a,
5387 const ptrdiff_t *lda,
5388 const float *b,
5389 const ptrdiff_t *ldb,
5390 const float *t,
5391 const ptrdiff_t *ldt,
5392 const float *work,
5393 ptrdiff_t *info
5394);
5395
5396/* Source: ctpqrt2.f */
5397#define ctpqrt2 FORTRAN_WRAPPER(ctpqrt2)
5398extern void ctpqrt2(
5399 const ptrdiff_t *m,
5400 const ptrdiff_t *n,
5401 const ptrdiff_t *l,
5402 float *a,
5403 const ptrdiff_t *lda,
5404 float *b,
5405 const ptrdiff_t *ldb,
5406 float *t,
5407 const ptrdiff_t *ldt,
5408 ptrdiff_t *info
5409);
5410
5411/* Source: ctprfb.f */
5412#define ctprfb FORTRAN_WRAPPER(ctprfb)
5413extern void ctprfb(
5414 const char *side,
5415 const char *trans,
5416 const char *direct,
5417 const char *storev,
5418 const ptrdiff_t *m,
5419 const ptrdiff_t *n,
5420 const ptrdiff_t *k,
5421 const ptrdiff_t *l,
5422 const float *v,
5423 const ptrdiff_t *ldv,
5424 const float *t,
5425 const ptrdiff_t *ldt,
5426 float *a,
5427 const ptrdiff_t *lda,
5428 float *b,
5429 const ptrdiff_t *ldb,
5430 float *work,
5431 const ptrdiff_t *ldwork
5432);
5433
5434/* Source: ctprfs.f */
5435#define ctprfs FORTRAN_WRAPPER(ctprfs)
5436extern void ctprfs(
5437 const char *uplo,
5438 const char *trans,
5439 const char *diag,
5440 const ptrdiff_t *n,
5441 const ptrdiff_t *nrhs,
5442 const float *ap,
5443 const float *b,
5444 const ptrdiff_t *ldb,
5445 const float *x,
5446 const ptrdiff_t *ldx,
5447 float *ferr,
5448 float *berr,
5449 float *work,
5450 float *rwork,
5451 ptrdiff_t *info
5452);
5453
5454/* Source: ctptri.f */
5455#define ctptri FORTRAN_WRAPPER(ctptri)
5456extern void ctptri(
5457 const char *uplo,
5458 const char *diag,
5459 const ptrdiff_t *n,
5460 float *ap,
5461 ptrdiff_t *info
5462);
5463
5464/* Source: ctptrs.f */
5465#define ctptrs FORTRAN_WRAPPER(ctptrs)
5466extern void ctptrs(
5467 const char *uplo,
5468 const char *trans,
5469 const char *diag,
5470 const ptrdiff_t *n,
5471 const ptrdiff_t *nrhs,
5472 const float *ap,
5473 float *b,
5474 const ptrdiff_t *ldb,
5475 ptrdiff_t *info
5476);
5477
5478/* Source: ctpttf.f */
5479#define ctpttf FORTRAN_WRAPPER(ctpttf)
5480extern void ctpttf(
5481 const char *transr,
5482 const char *uplo,
5483 const ptrdiff_t *n,
5484 const float *ap,
5485 float *arf,
5486 ptrdiff_t *info
5487);
5488
5489/* Source: ctpttr.f */
5490#define ctpttr FORTRAN_WRAPPER(ctpttr)
5491extern void ctpttr(
5492 const char *uplo,
5493 const ptrdiff_t *n,
5494 const float *ap,
5495 float *a,
5496 const ptrdiff_t *lda,
5497 ptrdiff_t *info
5498);
5499
5500/* Source: ctrcon.f */
5501#define ctrcon FORTRAN_WRAPPER(ctrcon)
5502extern void ctrcon(
5503 const char *norm,
5504 const char *uplo,
5505 const char *diag,
5506 const ptrdiff_t *n,
5507 const float *a,
5508 const ptrdiff_t *lda,
5509 float *rcond,
5510 float *work,
5511 float *rwork,
5512 ptrdiff_t *info
5513);
5514
5515/* Source: ctrevc.f */
5516#define ctrevc FORTRAN_WRAPPER(ctrevc)
5517extern void ctrevc(
5518 const char *side,
5519 const char *howmny,
5520 const ptrdiff_t *select,
5521 const ptrdiff_t *n,
5522 float *t,
5523 const ptrdiff_t *ldt,
5524 float *vl,
5525 const ptrdiff_t *ldvl,
5526 float *vr,
5527 const ptrdiff_t *ldvr,
5528 const ptrdiff_t *mm,
5529 ptrdiff_t *m,
5530 float *work,
5531 float *rwork,
5532 ptrdiff_t *info
5533);
5534
5535/* Source: ctrexc.f */
5536#define ctrexc FORTRAN_WRAPPER(ctrexc)
5537extern void ctrexc(
5538 const char *compq,
5539 const ptrdiff_t *n,
5540 float *t,
5541 const ptrdiff_t *ldt,
5542 float *q,
5543 const ptrdiff_t *ldq,
5544 const ptrdiff_t *ifst,
5545 const ptrdiff_t *ilst,
5546 ptrdiff_t *info
5547);
5548
5549/* Source: ctrrfs.f */
5550#define ctrrfs FORTRAN_WRAPPER(ctrrfs)
5551extern void ctrrfs(
5552 const char *uplo,
5553 const char *trans,
5554 const char *diag,
5555 const ptrdiff_t *n,
5556 const ptrdiff_t *nrhs,
5557 const float *a,
5558 const ptrdiff_t *lda,
5559 const float *b,
5560 const ptrdiff_t *ldb,
5561 const float *x,
5562 const ptrdiff_t *ldx,
5563 float *ferr,
5564 float *berr,
5565 float *work,
5566 float *rwork,
5567 ptrdiff_t *info
5568);
5569
5570/* Source: ctrsen.f */
5571#define ctrsen FORTRAN_WRAPPER(ctrsen)
5572extern void ctrsen(
5573 const char *job,
5574 const char *compq,
5575 const ptrdiff_t *select,
5576 const ptrdiff_t *n,
5577 float *t,
5578 const ptrdiff_t *ldt,
5579 float *q,
5580 const ptrdiff_t *ldq,
5581 float *w,
5582 ptrdiff_t *m,
5583 float *s,
5584 float *sep,
5585 float *work,
5586 const ptrdiff_t *lwork,
5587 ptrdiff_t *info
5588);
5589
5590/* Source: ctrsna.f */
5591#define ctrsna FORTRAN_WRAPPER(ctrsna)
5592extern void ctrsna(
5593 const char *job,
5594 const char *howmny,
5595 const ptrdiff_t *select,
5596 const ptrdiff_t *n,
5597 const float *t,
5598 const ptrdiff_t *ldt,
5599 const float *vl,
5600 const ptrdiff_t *ldvl,
5601 const float *vr,
5602 const ptrdiff_t *ldvr,
5603 float *s,
5604 float *sep,
5605 const ptrdiff_t *mm,
5606 ptrdiff_t *m,
5607 float *work,
5608 const ptrdiff_t *ldwork,
5609 float *rwork,
5610 ptrdiff_t *info
5611);
5612
5613/* Source: ctrsyl.f */
5614#define ctrsyl FORTRAN_WRAPPER(ctrsyl)
5615extern void ctrsyl(
5616 const char *trana,
5617 const char *tranb,
5618 const ptrdiff_t *isgn,
5619 const ptrdiff_t *m,
5620 const ptrdiff_t *n,
5621 const float *a,
5622 const ptrdiff_t *lda,
5623 const float *b,
5624 const ptrdiff_t *ldb,
5625 float *c,
5626 const ptrdiff_t *ldc,
5627 float *scale,
5628 ptrdiff_t *info
5629);
5630
5631/* Source: ctrti2.f */
5632#define ctrti2 FORTRAN_WRAPPER(ctrti2)
5633extern void ctrti2(
5634 const char *uplo,
5635 const char *diag,
5636 const ptrdiff_t *n,
5637 float *a,
5638 const ptrdiff_t *lda,
5639 ptrdiff_t *info
5640);
5641
5642/* Source: ctrtri.f */
5643#define ctrtri FORTRAN_WRAPPER(ctrtri)
5644extern void ctrtri(
5645 const char *uplo,
5646 const char *diag,
5647 const ptrdiff_t *n,
5648 float *a,
5649 const ptrdiff_t *lda,
5650 ptrdiff_t *info
5651);
5652
5653/* Source: ctrtrs.f */
5654#define ctrtrs FORTRAN_WRAPPER(ctrtrs)
5655extern void ctrtrs(
5656 const char *uplo,
5657 const char *trans,
5658 const char *diag,
5659 const ptrdiff_t *n,
5660 const ptrdiff_t *nrhs,
5661 const float *a,
5662 const ptrdiff_t *lda,
5663 float *b,
5664 const ptrdiff_t *ldb,
5665 ptrdiff_t *info
5666);
5667
5668/* Source: ctrttf.f */
5669#define ctrttf FORTRAN_WRAPPER(ctrttf)
5670extern void ctrttf(
5671 const char *transr,
5672 const char *uplo,
5673 const ptrdiff_t *n,
5674 const float *a,
5675 const ptrdiff_t *lda,
5676 float *arf,
5677 ptrdiff_t *info
5678);
5679
5680/* Source: ctrttp.f */
5681#define ctrttp FORTRAN_WRAPPER(ctrttp)
5682extern void ctrttp(
5683 const char *uplo,
5684 const ptrdiff_t *n,
5685 const float *a,
5686 const ptrdiff_t *lda,
5687 float *ap,
5688 ptrdiff_t *info
5689);
5690
5691/* Source: ctzrqf.f */
5692#define ctzrqf FORTRAN_WRAPPER(ctzrqf)
5693extern void ctzrqf(
5694 const ptrdiff_t *m,
5695 const ptrdiff_t *n,
5696 float *a,
5697 const ptrdiff_t *lda,
5698 float *tau,
5699 ptrdiff_t *info
5700);
5701
5702/* Source: ctzrzf.f */
5703#define ctzrzf FORTRAN_WRAPPER(ctzrzf)
5704extern void ctzrzf(
5705 const ptrdiff_t *m,
5706 const ptrdiff_t *n,
5707 float *a,
5708 const ptrdiff_t *lda,
5709 float *tau,
5710 float *work,
5711 const ptrdiff_t *lwork,
5712 ptrdiff_t *info
5713);
5714
5715/* Source: cunbdb.f */
5716#define cunbdb FORTRAN_WRAPPER(cunbdb)
5717extern void cunbdb(
5718 const char *trans,
5719 const char *signs,
5720 const ptrdiff_t *m,
5721 const ptrdiff_t *p,
5722 const ptrdiff_t *q,
5723 float *x11,
5724 const ptrdiff_t *ldx11,
5725 float *x12,
5726 const ptrdiff_t *ldx12,
5727 float *x21,
5728 const ptrdiff_t *ldx21,
5729 float *x22,
5730 const ptrdiff_t *ldx22,
5731 float *theta,
5732 float *phi,
5733 float *taup1,
5734 float *taup2,
5735 float *tauq1,
5736 float *tauq2,
5737 float *work,
5738 const ptrdiff_t *lwork,
5739 ptrdiff_t *info
5740);
5741
5742/* Source: cunbdb1.f */
5743#define cunbdb1 FORTRAN_WRAPPER(cunbdb1)
5744extern void cunbdb1(
5745 const ptrdiff_t *m,
5746 const ptrdiff_t *p,
5747 const ptrdiff_t *q,
5748 float *x11,
5749 const ptrdiff_t *ldx11,
5750 float *x21,
5751 const ptrdiff_t *ldx21,
5752 float *theta,
5753 float *phi,
5754 float *taup1,
5755 float *taup2,
5756 float *tauq1,
5757 float *work,
5758 const ptrdiff_t *lwork,
5759 ptrdiff_t *info
5760);
5761
5762/* Source: cunbdb2.f */
5763#define cunbdb2 FORTRAN_WRAPPER(cunbdb2)
5764extern void cunbdb2(
5765 const ptrdiff_t *m,
5766 const ptrdiff_t *p,
5767 const ptrdiff_t *q,
5768 float *x11,
5769 const ptrdiff_t *ldx11,
5770 float *x21,
5771 const ptrdiff_t *ldx21,
5772 float *theta,
5773 float *phi,
5774 float *taup1,
5775 float *taup2,
5776 float *tauq1,
5777 float *work,
5778 const ptrdiff_t *lwork,
5779 ptrdiff_t *info
5780);
5781
5782/* Source: cunbdb3.f */
5783#define cunbdb3 FORTRAN_WRAPPER(cunbdb3)
5784extern void cunbdb3(
5785 const ptrdiff_t *m,
5786 const ptrdiff_t *p,
5787 const ptrdiff_t *q,
5788 float *x11,
5789 const ptrdiff_t *ldx11,
5790 float *x21,
5791 const ptrdiff_t *ldx21,
5792 float *theta,
5793 float *phi,
5794 float *taup1,
5795 float *taup2,
5796 float *tauq1,
5797 float *work,
5798 const ptrdiff_t *lwork,
5799 ptrdiff_t *info
5800);
5801
5802/* Source: cunbdb4.f */
5803#define cunbdb4 FORTRAN_WRAPPER(cunbdb4)
5804extern void cunbdb4(
5805 const ptrdiff_t *m,
5806 const ptrdiff_t *p,
5807 const ptrdiff_t *q,
5808 float *x11,
5809 const ptrdiff_t *ldx11,
5810 float *x21,
5811 const ptrdiff_t *ldx21,
5812 float *theta,
5813 float *phi,
5814 float *taup1,
5815 float *taup2,
5816 float *tauq1,
5817 float *phantom,
5818 float *work,
5819 const ptrdiff_t *lwork,
5820 ptrdiff_t *info
5821);
5822
5823/* Source: cunbdb5.f */
5824#define cunbdb5 FORTRAN_WRAPPER(cunbdb5)
5825extern void cunbdb5(
5826 const ptrdiff_t *m1,
5827 const ptrdiff_t *m2,
5828 const ptrdiff_t *n,
5829 float *x1,
5830 const ptrdiff_t *incx1,
5831 float *x2,
5832 const ptrdiff_t *incx2,
5833 float *q1,
5834 const ptrdiff_t *ldq1,
5835 float *q2,
5836 const ptrdiff_t *ldq2,
5837 float *work,
5838 const ptrdiff_t *lwork,
5839 ptrdiff_t *info
5840);
5841
5842/* Source: cunbdb6.f */
5843#define cunbdb6 FORTRAN_WRAPPER(cunbdb6)
5844extern void cunbdb6(
5845 const ptrdiff_t *m1,
5846 const ptrdiff_t *m2,
5847 const ptrdiff_t *n,
5848 float *x1,
5849 const ptrdiff_t *incx1,
5850 float *x2,
5851 const ptrdiff_t *incx2,
5852 float *q1,
5853 const ptrdiff_t *ldq1,
5854 float *q2,
5855 const ptrdiff_t *ldq2,
5856 float *work,
5857 const ptrdiff_t *lwork,
5858 ptrdiff_t *info
5859);
5860
5861/* Source: cuncsd.f */
5862#define cuncsd FORTRAN_WRAPPER(cuncsd)
5863extern void cuncsd(
5864 const char *jobu1,
5865 const char *jobu2,
5866 const char *jobv1t,
5867 const char *jobv2t,
5868 const char *trans,
5869 const char *signs,
5870 const ptrdiff_t *m,
5871 const ptrdiff_t *p,
5872 const ptrdiff_t *q,
5873 float *x11,
5874 const ptrdiff_t *ldx11,
5875 float *x12,
5876 const ptrdiff_t *ldx12,
5877 float *x21,
5878 const ptrdiff_t *ldx21,
5879 float *x22,
5880 const ptrdiff_t *ldx22,
5881 float *theta,
5882 float *u1,
5883 const ptrdiff_t *ldu1,
5884 float *u2,
5885 const ptrdiff_t *ldu2,
5886 float *v1t,
5887 const ptrdiff_t *ldv1t,
5888 float *v2t,
5889 const ptrdiff_t *ldv2t,
5890 float *work,
5891 const ptrdiff_t *lwork,
5892 float *rwork,
5893 const ptrdiff_t *lrwork,
5894 ptrdiff_t *iwork,
5895 ptrdiff_t *info
5896);
5897
5898/* Source: cuncsd2by1.f */
5899#define cuncsd2by1 FORTRAN_WRAPPER(cuncsd2by1)
5900extern void cuncsd2by1(
5901 const char *jobu1,
5902 const char *jobu2,
5903 const char *jobv1t,
5904 const ptrdiff_t *m,
5905 const ptrdiff_t *p,
5906 const ptrdiff_t *q,
5907 float *x11,
5908 const ptrdiff_t *ldx11,
5909 float *x21,
5910 const ptrdiff_t *ldx21,
5911 float *theta,
5912 float *u1,
5913 const ptrdiff_t *ldu1,
5914 float *u2,
5915 const ptrdiff_t *ldu2,
5916 float *v1t,
5917 const ptrdiff_t *ldv1t,
5918 float *work,
5919 const ptrdiff_t *lwork,
5920 float *rwork,
5921 const ptrdiff_t *lrwork,
5922 ptrdiff_t *iwork,
5923 ptrdiff_t *info
5924);
5925
5926/* Source: cung2l.f */
5927#define cung2l FORTRAN_WRAPPER(cung2l)
5928extern void cung2l(
5929 const ptrdiff_t *m,
5930 const ptrdiff_t *n,
5931 const ptrdiff_t *k,
5932 float *a,
5933 const ptrdiff_t *lda,
5934 const float *tau,
5935 float *work,
5936 ptrdiff_t *info
5937);
5938
5939/* Source: cung2r.f */
5940#define cung2r FORTRAN_WRAPPER(cung2r)
5941extern void cung2r(
5942 const ptrdiff_t *m,
5943 const ptrdiff_t *n,
5944 const ptrdiff_t *k,
5945 float *a,
5946 const ptrdiff_t *lda,
5947 const float *tau,
5948 float *work,
5949 ptrdiff_t *info
5950);
5951
5952/* Source: cungbr.f */
5953#define cungbr FORTRAN_WRAPPER(cungbr)
5954extern void cungbr(
5955 const char *vect,
5956 const ptrdiff_t *m,
5957 const ptrdiff_t *n,
5958 const ptrdiff_t *k,
5959 float *a,
5960 const ptrdiff_t *lda,
5961 const float *tau,
5962 float *work,
5963 const ptrdiff_t *lwork,
5964 ptrdiff_t *info
5965);
5966
5967/* Source: cunghr.f */
5968#define cunghr FORTRAN_WRAPPER(cunghr)
5969extern void cunghr(
5970 const ptrdiff_t *n,
5971 const ptrdiff_t *ilo,
5972 const ptrdiff_t *ihi,
5973 float *a,
5974 const ptrdiff_t *lda,
5975 const float *tau,
5976 float *work,
5977 const ptrdiff_t *lwork,
5978 ptrdiff_t *info
5979);
5980
5981/* Source: cungl2.f */
5982#define cungl2 FORTRAN_WRAPPER(cungl2)
5983extern void cungl2(
5984 const ptrdiff_t *m,
5985 const ptrdiff_t *n,
5986 const ptrdiff_t *k,
5987 float *a,
5988 const ptrdiff_t *lda,
5989 const float *tau,
5990 float *work,
5991 ptrdiff_t *info
5992);
5993
5994/* Source: cunglq.f */
5995#define cunglq FORTRAN_WRAPPER(cunglq)
5996extern void cunglq(
5997 const ptrdiff_t *m,
5998 const ptrdiff_t *n,
5999 const ptrdiff_t *k,
6000 float *a,
6001 const ptrdiff_t *lda,
6002 const float *tau,
6003 float *work,
6004 const ptrdiff_t *lwork,
6005 ptrdiff_t *info
6006);
6007
6008/* Source: cungql.f */
6009#define cungql FORTRAN_WRAPPER(cungql)
6010extern void cungql(
6011 const ptrdiff_t *m,
6012 const ptrdiff_t *n,
6013 const ptrdiff_t *k,
6014 float *a,
6015 const ptrdiff_t *lda,
6016 const float *tau,
6017 float *work,
6018 const ptrdiff_t *lwork,
6019 ptrdiff_t *info
6020);
6021
6022/* Source: cungqr.f */
6023#define cungqr FORTRAN_WRAPPER(cungqr)
6024extern void cungqr(
6025 const ptrdiff_t *m,
6026 const ptrdiff_t *n,
6027 const ptrdiff_t *k,
6028 float *a,
6029 const ptrdiff_t *lda,
6030 const float *tau,
6031 float *work,
6032 const ptrdiff_t *lwork,
6033 ptrdiff_t *info
6034);
6035
6036/* Source: cungr2.f */
6037#define cungr2 FORTRAN_WRAPPER(cungr2)
6038extern void cungr2(
6039 const ptrdiff_t *m,
6040 const ptrdiff_t *n,
6041 const ptrdiff_t *k,
6042 float *a,
6043 const ptrdiff_t *lda,
6044 const float *tau,
6045 float *work,
6046 ptrdiff_t *info
6047);
6048
6049/* Source: cungrq.f */
6050#define cungrq FORTRAN_WRAPPER(cungrq)
6051extern void cungrq(
6052 const ptrdiff_t *m,
6053 const ptrdiff_t *n,
6054 const ptrdiff_t *k,
6055 float *a,
6056 const ptrdiff_t *lda,
6057 const float *tau,
6058 float *work,
6059 const ptrdiff_t *lwork,
6060 ptrdiff_t *info
6061);
6062
6063/* Source: cungtr.f */
6064#define cungtr FORTRAN_WRAPPER(cungtr)
6065extern void cungtr(
6066 const char *uplo,
6067 const ptrdiff_t *n,
6068 float *a,
6069 const ptrdiff_t *lda,
6070 const float *tau,
6071 float *work,
6072 const ptrdiff_t *lwork,
6073 ptrdiff_t *info
6074);
6075
6076/* Source: cunm2l.f */
6077#define cunm2l FORTRAN_WRAPPER(cunm2l)
6078extern void cunm2l(
6079 const char *side,
6080 const char *trans,
6081 const ptrdiff_t *m,
6082 const ptrdiff_t *n,
6083 const ptrdiff_t *k,
6084 const float *a,
6085 const ptrdiff_t *lda,
6086 const float *tau,
6087 float *c,
6088 const ptrdiff_t *ldc,
6089 float *work,
6090 ptrdiff_t *info
6091);
6092
6093/* Source: cunm2r.f */
6094#define cunm2r FORTRAN_WRAPPER(cunm2r)
6095extern void cunm2r(
6096 const char *side,
6097 const char *trans,
6098 const ptrdiff_t *m,
6099 const ptrdiff_t *n,
6100 const ptrdiff_t *k,
6101 const float *a,
6102 const ptrdiff_t *lda,
6103 const float *tau,
6104 float *c,
6105 const ptrdiff_t *ldc,
6106 float *work,
6107 ptrdiff_t *info
6108);
6109
6110/* Source: cunmbr.f */
6111#define cunmbr FORTRAN_WRAPPER(cunmbr)
6112extern void cunmbr(
6113 const char *vect,
6114 const char *side,
6115 const char *trans,
6116 const ptrdiff_t *m,
6117 const ptrdiff_t *n,
6118 const ptrdiff_t *k,
6119 const float *a,
6120 const ptrdiff_t *lda,
6121 const float *tau,
6122 float *c,
6123 const ptrdiff_t *ldc,
6124 float *work,
6125 const ptrdiff_t *lwork,
6126 ptrdiff_t *info
6127);
6128
6129/* Source: cunmhr.f */
6130#define cunmhr FORTRAN_WRAPPER(cunmhr)
6131extern void cunmhr(
6132 const char *side,
6133 const char *trans,
6134 const ptrdiff_t *m,
6135 const ptrdiff_t *n,
6136 const ptrdiff_t *ilo,
6137 const ptrdiff_t *ihi,
6138 const float *a,
6139 const ptrdiff_t *lda,
6140 const float *tau,
6141 float *c,
6142 const ptrdiff_t *ldc,
6143 float *work,
6144 const ptrdiff_t *lwork,
6145 ptrdiff_t *info
6146);
6147
6148/* Source: cunml2.f */
6149#define cunml2 FORTRAN_WRAPPER(cunml2)
6150extern void cunml2(
6151 const char *side,
6152 const char *trans,
6153 const ptrdiff_t *m,
6154 const ptrdiff_t *n,
6155 const ptrdiff_t *k,
6156 const float *a,
6157 const ptrdiff_t *lda,
6158 const float *tau,
6159 float *c,
6160 const ptrdiff_t *ldc,
6161 float *work,
6162 ptrdiff_t *info
6163);
6164
6165/* Source: cunmlq.f */
6166#define cunmlq FORTRAN_WRAPPER(cunmlq)
6167extern void cunmlq(
6168 const char *side,
6169 const char *trans,
6170 const ptrdiff_t *m,
6171 const ptrdiff_t *n,
6172 const ptrdiff_t *k,
6173 const float *a,
6174 const ptrdiff_t *lda,
6175 const float *tau,
6176 float *c,
6177 const ptrdiff_t *ldc,
6178 float *work,
6179 const ptrdiff_t *lwork,
6180 ptrdiff_t *info
6181);
6182
6183/* Source: cunmql.f */
6184#define cunmql FORTRAN_WRAPPER(cunmql)
6185extern void cunmql(
6186 const char *side,
6187 const char *trans,
6188 const ptrdiff_t *m,
6189 const ptrdiff_t *n,
6190 const ptrdiff_t *k,
6191 const float *a,
6192 const ptrdiff_t *lda,
6193 const float *tau,
6194 float *c,
6195 const ptrdiff_t *ldc,
6196 float *work,
6197 const ptrdiff_t *lwork,
6198 ptrdiff_t *info
6199);
6200
6201/* Source: cunmqr.f */
6202#define cunmqr FORTRAN_WRAPPER(cunmqr)
6203extern void cunmqr(
6204 const char *side,
6205 const char *trans,
6206 const ptrdiff_t *m,
6207 const ptrdiff_t *n,
6208 const ptrdiff_t *k,
6209 const float *a,
6210 const ptrdiff_t *lda,
6211 const float *tau,
6212 float *c,
6213 const ptrdiff_t *ldc,
6214 float *work,
6215 const ptrdiff_t *lwork,
6216 ptrdiff_t *info
6217);
6218
6219/* Source: cunmr2.f */
6220#define cunmr2 FORTRAN_WRAPPER(cunmr2)
6221extern void cunmr2(
6222 const char *side,
6223 const char *trans,
6224 const ptrdiff_t *m,
6225 const ptrdiff_t *n,
6226 const ptrdiff_t *k,
6227 const float *a,
6228 const ptrdiff_t *lda,
6229 const float *tau,
6230 float *c,
6231 const ptrdiff_t *ldc,
6232 float *work,
6233 ptrdiff_t *info
6234);
6235
6236/* Source: cunmr3.f */
6237#define cunmr3 FORTRAN_WRAPPER(cunmr3)
6238extern void cunmr3(
6239 const char *side,
6240 const char *trans,
6241 const ptrdiff_t *m,
6242 const ptrdiff_t *n,
6243 const ptrdiff_t *k,
6244 const ptrdiff_t *l,
6245 const float *a,
6246 const ptrdiff_t *lda,
6247 const float *tau,
6248 float *c,
6249 const ptrdiff_t *ldc,
6250 float *work,
6251 ptrdiff_t *info
6252);
6253
6254/* Source: cunmrq.f */
6255#define cunmrq FORTRAN_WRAPPER(cunmrq)
6256extern void cunmrq(
6257 const char *side,
6258 const char *trans,
6259 const ptrdiff_t *m,
6260 const ptrdiff_t *n,
6261 const ptrdiff_t *k,
6262 const float *a,
6263 const ptrdiff_t *lda,
6264 const float *tau,
6265 float *c,
6266 const ptrdiff_t *ldc,
6267 float *work,
6268 const ptrdiff_t *lwork,
6269 ptrdiff_t *info
6270);
6271
6272/* Source: cunmrz.f */
6273#define cunmrz FORTRAN_WRAPPER(cunmrz)
6274extern void cunmrz(
6275 const char *side,
6276 const char *trans,
6277 const ptrdiff_t *m,
6278 const ptrdiff_t *n,
6279 const ptrdiff_t *k,
6280 const ptrdiff_t *l,
6281 const float *a,
6282 const ptrdiff_t *lda,
6283 const float *tau,
6284 float *c,
6285 const ptrdiff_t *ldc,
6286 float *work,
6287 const ptrdiff_t *lwork,
6288 ptrdiff_t *info
6289);
6290
6291/* Source: cunmtr.f */
6292#define cunmtr FORTRAN_WRAPPER(cunmtr)
6293extern void cunmtr(
6294 const char *side,
6295 const char *uplo,
6296 const char *trans,
6297 const ptrdiff_t *m,
6298 const ptrdiff_t *n,
6299 const float *a,
6300 const ptrdiff_t *lda,
6301 const float *tau,
6302 float *c,
6303 const ptrdiff_t *ldc,
6304 float *work,
6305 const ptrdiff_t *lwork,
6306 ptrdiff_t *info
6307);
6308
6309/* Source: cupgtr.f */
6310#define cupgtr FORTRAN_WRAPPER(cupgtr)
6311extern void cupgtr(
6312 const char *uplo,
6313 const ptrdiff_t *n,
6314 const float *ap,
6315 const float *tau,
6316 float *q,
6317 const ptrdiff_t *ldq,
6318 float *work,
6319 ptrdiff_t *info
6320);
6321
6322/* Source: cupmtr.f */
6323#define cupmtr FORTRAN_WRAPPER(cupmtr)
6324extern void cupmtr(
6325 const char *side,
6326 const char *uplo,
6327 const char *trans,
6328 const ptrdiff_t *m,
6329 const ptrdiff_t *n,
6330 const float *ap,
6331 const float *tau,
6332 float *c,
6333 const ptrdiff_t *ldc,
6334 float *work,
6335 ptrdiff_t *info
6336);
6337
6338/* Source: dbbcsd.f */
6339#define dbbcsd FORTRAN_WRAPPER(dbbcsd)
6340extern void dbbcsd(
6341 const char *jobu1,
6342 const char *jobu2,
6343 const char *jobv1t,
6344 const char *jobv2t,
6345 const char *trans,
6346 const ptrdiff_t *m,
6347 const ptrdiff_t *p,
6348 const ptrdiff_t *q,
6349 double *theta,
6350 double *phi,
6351 double *u1,
6352 const ptrdiff_t *ldu1,
6353 double *u2,
6354 const ptrdiff_t *ldu2,
6355 double *v1t,
6356 const ptrdiff_t *ldv1t,
6357 double *v2t,
6358 const ptrdiff_t *ldv2t,
6359 double *b11d,
6360 double *b11e,
6361 double *b12d,
6362 double *b12e,
6363 double *b21d,
6364 double *b21e,
6365 double *b22d,
6366 double *b22e,
6367 double *work,
6368 const ptrdiff_t *lwork,
6369 ptrdiff_t *info
6370);
6371
6372/* Source: dbdsdc.f */
6373#define dbdsdc FORTRAN_WRAPPER(dbdsdc)
6374extern void dbdsdc(
6375 const char *uplo,
6376 const char *compq,
6377 const ptrdiff_t *n,
6378 double *d,
6379 double *e,
6380 double *u,
6381 const ptrdiff_t *ldu,
6382 double *vt,
6383 const ptrdiff_t *ldvt,
6384 double *q,
6385 ptrdiff_t *iq,
6386 double *work,
6387 ptrdiff_t *iwork,
6388 ptrdiff_t *info
6389);
6390
6391/* Source: dbdsqr.f */
6392#define dbdsqr FORTRAN_WRAPPER(dbdsqr)
6393extern void dbdsqr(
6394 const char *uplo,
6395 const ptrdiff_t *n,
6396 const ptrdiff_t *ncvt,
6397 const ptrdiff_t *nru,
6398 const ptrdiff_t *ncc,
6399 double *d,
6400 double *e,
6401 double *vt,
6402 const ptrdiff_t *ldvt,
6403 double *u,
6404 const ptrdiff_t *ldu,
6405 double *c,
6406 const ptrdiff_t *ldc,
6407 double *work,
6408 ptrdiff_t *info
6409);
6410
6411/* Source: ddisna.f */
6412#define ddisna FORTRAN_WRAPPER(ddisna)
6413extern void ddisna(
6414 const char *job,
6415 const ptrdiff_t *m,
6416 const ptrdiff_t *n,
6417 const double *d,
6418 double *sep,
6419 ptrdiff_t *info
6420);
6421
6422/* Source: dgbbrd.f */
6423#define dgbbrd FORTRAN_WRAPPER(dgbbrd)
6424extern void dgbbrd(
6425 const char *vect,
6426 const ptrdiff_t *m,
6427 const ptrdiff_t *n,
6428 const ptrdiff_t *ncc,
6429 const ptrdiff_t *kl,
6430 const ptrdiff_t *ku,
6431 double *ab,
6432 const ptrdiff_t *ldab,
6433 double *d,
6434 double *e,
6435 double *q,
6436 const ptrdiff_t *ldq,
6437 double *pt,
6438 const ptrdiff_t *ldpt,
6439 double *c,
6440 const ptrdiff_t *ldc,
6441 double *work,
6442 ptrdiff_t *info
6443);
6444
6445/* Source: dgbcon.f */
6446#define dgbcon FORTRAN_WRAPPER(dgbcon)
6447extern void dgbcon(
6448 const char *norm,
6449 const ptrdiff_t *n,
6450 const ptrdiff_t *kl,
6451 const ptrdiff_t *ku,
6452 const double *ab,
6453 const ptrdiff_t *ldab,
6454 const ptrdiff_t *ipiv,
6455 const double *anorm,
6456 double *rcond,
6457 double *work,
6458 ptrdiff_t *iwork,
6459 ptrdiff_t *info
6460);
6461
6462/* Source: dgbequ.f */
6463#define dgbequ FORTRAN_WRAPPER(dgbequ)
6464extern void dgbequ(
6465 const ptrdiff_t *m,
6466 const ptrdiff_t *n,
6467 const ptrdiff_t *kl,
6468 const ptrdiff_t *ku,
6469 const double *ab,
6470 const ptrdiff_t *ldab,
6471 double *r,
6472 double *c,
6473 double *rowcnd,
6474 double *colcnd,
6475 double *amax,
6476 ptrdiff_t *info
6477);
6478
6479/* Source: dgbequb.f */
6480#define dgbequb FORTRAN_WRAPPER(dgbequb)
6481extern void dgbequb(
6482 const ptrdiff_t *m,
6483 const ptrdiff_t *n,
6484 const ptrdiff_t *kl,
6485 const ptrdiff_t *ku,
6486 const double *ab,
6487 const ptrdiff_t *ldab,
6488 double *r,
6489 double *c,
6490 double *rowcnd,
6491 double *colcnd,
6492 double *amax,
6493 ptrdiff_t *info
6494);
6495
6496/* Source: dgbrfs.f */
6497#define dgbrfs FORTRAN_WRAPPER(dgbrfs)
6498extern void dgbrfs(
6499 const char *trans,
6500 const ptrdiff_t *n,
6501 const ptrdiff_t *kl,
6502 const ptrdiff_t *ku,
6503 const ptrdiff_t *nrhs,
6504 const double *ab,
6505 const ptrdiff_t *ldab,
6506 const double *afb,
6507 const ptrdiff_t *ldafb,
6508 const ptrdiff_t *ipiv,
6509 const double *b,
6510 const ptrdiff_t *ldb,
6511 double *x,
6512 const ptrdiff_t *ldx,
6513 double *ferr,
6514 double *berr,
6515 double *work,
6516 ptrdiff_t *iwork,
6517 ptrdiff_t *info
6518);
6519
6520/* Source: dgbsv.f */
6521#define dgbsv FORTRAN_WRAPPER(dgbsv)
6522extern void dgbsv(
6523 const ptrdiff_t *n,
6524 const ptrdiff_t *kl,
6525 const ptrdiff_t *ku,
6526 const ptrdiff_t *nrhs,
6527 double *ab,
6528 const ptrdiff_t *ldab,
6529 ptrdiff_t *ipiv,
6530 double *b,
6531 const ptrdiff_t *ldb,
6532 ptrdiff_t *info
6533);
6534
6535/* Source: dgbsvx.f */
6536#define dgbsvx FORTRAN_WRAPPER(dgbsvx)
6537extern void dgbsvx(
6538 const char *fact,
6539 const char *trans,
6540 const ptrdiff_t *n,
6541 const ptrdiff_t *kl,
6542 const ptrdiff_t *ku,
6543 const ptrdiff_t *nrhs,
6544 double *ab,
6545 const ptrdiff_t *ldab,
6546 double *afb,
6547 const ptrdiff_t *ldafb,
6548 ptrdiff_t *ipiv,
6549 char *equed,
6550 double *r,
6551 double *c,
6552 double *b,
6553 const ptrdiff_t *ldb,
6554 double *x,
6555 const ptrdiff_t *ldx,
6556 double *rcond,
6557 double *ferr,
6558 double *berr,
6559 double *work,
6560 ptrdiff_t *iwork,
6561 ptrdiff_t *info
6562);
6563
6564/* Source: dgbtf2.f */
6565#define dgbtf2 FORTRAN_WRAPPER(dgbtf2)
6566extern void dgbtf2(
6567 const ptrdiff_t *m,
6568 const ptrdiff_t *n,
6569 const ptrdiff_t *kl,
6570 const ptrdiff_t *ku,
6571 double *ab,
6572 const ptrdiff_t *ldab,
6573 ptrdiff_t *ipiv,
6574 ptrdiff_t *info
6575);
6576
6577/* Source: dgbtrf.f */
6578#define dgbtrf FORTRAN_WRAPPER(dgbtrf)
6579extern void dgbtrf(
6580 const ptrdiff_t *m,
6581 const ptrdiff_t *n,
6582 const ptrdiff_t *kl,
6583 const ptrdiff_t *ku,
6584 double *ab,
6585 const ptrdiff_t *ldab,
6586 ptrdiff_t *ipiv,
6587 ptrdiff_t *info
6588);
6589
6590/* Source: dgbtrs.f */
6591#define dgbtrs FORTRAN_WRAPPER(dgbtrs)
6592extern void dgbtrs(
6593 const char *trans,
6594 const ptrdiff_t *n,
6595 const ptrdiff_t *kl,
6596 const ptrdiff_t *ku,
6597 const ptrdiff_t *nrhs,
6598 const double *ab,
6599 const ptrdiff_t *ldab,
6600 const ptrdiff_t *ipiv,
6601 double *b,
6602 const ptrdiff_t *ldb,
6603 ptrdiff_t *info
6604);
6605
6606/* Source: dgebak.f */
6607#define dgebak FORTRAN_WRAPPER(dgebak)
6608extern void dgebak(
6609 const char *job,
6610 const char *side,
6611 const ptrdiff_t *n,
6612 const ptrdiff_t *ilo,
6613 const ptrdiff_t *ihi,
6614 const double *scale,
6615 const ptrdiff_t *m,
6616 double *v,
6617 const ptrdiff_t *ldv,
6618 ptrdiff_t *info
6619);
6620
6621/* Source: dgebal.f */
6622#define dgebal FORTRAN_WRAPPER(dgebal)
6623extern void dgebal(
6624 const char *job,
6625 const ptrdiff_t *n,
6626 double *a,
6627 const ptrdiff_t *lda,
6628 ptrdiff_t *ilo,
6629 ptrdiff_t *ihi,
6630 double *scale,
6631 ptrdiff_t *info
6632);
6633
6634/* Source: dgebd2.f */
6635#define dgebd2 FORTRAN_WRAPPER(dgebd2)
6636extern void dgebd2(
6637 const ptrdiff_t *m,
6638 const ptrdiff_t *n,
6639 double *a,
6640 const ptrdiff_t *lda,
6641 double *d,
6642 double *e,
6643 double *tauq,
6644 double *taup,
6645 double *work,
6646 ptrdiff_t *info
6647);
6648
6649/* Source: dgebrd.f */
6650#define dgebrd FORTRAN_WRAPPER(dgebrd)
6651extern void dgebrd(
6652 const ptrdiff_t *m,
6653 const ptrdiff_t *n,
6654 double *a,
6655 const ptrdiff_t *lda,
6656 double *d,
6657 double *e,
6658 double *tauq,
6659 double *taup,
6660 double *work,
6661 const ptrdiff_t *lwork,
6662 ptrdiff_t *info
6663);
6664
6665/* Source: dgecon.f */
6666#define dgecon FORTRAN_WRAPPER(dgecon)
6667extern void dgecon(
6668 const char *norm,
6669 const ptrdiff_t *n,
6670 const double *a,
6671 const ptrdiff_t *lda,
6672 const double *anorm,
6673 double *rcond,
6674 double *work,
6675 ptrdiff_t *iwork,
6676 ptrdiff_t *info
6677);
6678
6679/* Source: dgeequ.f */
6680#define dgeequ FORTRAN_WRAPPER(dgeequ)
6681extern void dgeequ(
6682 const ptrdiff_t *m,
6683 const ptrdiff_t *n,
6684 const double *a,
6685 const ptrdiff_t *lda,
6686 double *r,
6687 double *c,
6688 double *rowcnd,
6689 double *colcnd,
6690 double *amax,
6691 ptrdiff_t *info
6692);
6693
6694/* Source: dgeequb.f */
6695#define dgeequb FORTRAN_WRAPPER(dgeequb)
6696extern void dgeequb(
6697 const ptrdiff_t *m,
6698 const ptrdiff_t *n,
6699 const double *a,
6700 const ptrdiff_t *lda,
6701 double *r,
6702 double *c,
6703 double *rowcnd,
6704 double *colcnd,
6705 double *amax,
6706 ptrdiff_t *info
6707);
6708
6709/* Source: dgees.f */
6710#define dgees FORTRAN_WRAPPER(dgees)
6711extern void dgees(
6712 const char *jobvs,
6713 const char *sort,
6714 ptrdiff_t (*select)(),
6715 const ptrdiff_t *n,
6716 double *a,
6717 const ptrdiff_t *lda,
6718 ptrdiff_t *sdim,
6719 double *wr,
6720 double *wi,
6721 double *vs,
6722 const ptrdiff_t *ldvs,
6723 double *work,
6724 const ptrdiff_t *lwork,
6725 ptrdiff_t *bwork,
6726 ptrdiff_t *info
6727);
6728
6729/* Source: dgeesx.f */
6730#define dgeesx FORTRAN_WRAPPER(dgeesx)
6731extern void dgeesx(
6732 const char *jobvs,
6733 const char *sort,
6734 ptrdiff_t (*select)(),
6735 const char *sense,
6736 const ptrdiff_t *n,
6737 double *a,
6738 const ptrdiff_t *lda,
6739 ptrdiff_t *sdim,
6740 double *wr,
6741 double *wi,
6742 double *vs,
6743 const ptrdiff_t *ldvs,
6744 double *rconde,
6745 double *rcondv,
6746 double *work,
6747 const ptrdiff_t *lwork,
6748 ptrdiff_t *iwork,
6749 const ptrdiff_t *liwork,
6750 ptrdiff_t *bwork,
6751 ptrdiff_t *info
6752);
6753
6754/* Source: dgeev.f */
6755#define dgeev FORTRAN_WRAPPER(dgeev)
6756extern void dgeev(
6757 const char *jobvl,
6758 const char *jobvr,
6759 const ptrdiff_t *n,
6760 double *a,
6761 const ptrdiff_t *lda,
6762 double *wr,
6763 double *wi,
6764 double *vl,
6765 const ptrdiff_t *ldvl,
6766 double *vr,
6767 const ptrdiff_t *ldvr,
6768 double *work,
6769 const ptrdiff_t *lwork,
6770 ptrdiff_t *info
6771);
6772
6773/* Source: dgeevx.f */
6774#define dgeevx FORTRAN_WRAPPER(dgeevx)
6775extern void dgeevx(
6776 const char *balanc,
6777 const char *jobvl,
6778 const char *jobvr,
6779 const char *sense,
6780 const ptrdiff_t *n,
6781 double *a,
6782 const ptrdiff_t *lda,
6783 double *wr,
6784 double *wi,
6785 double *vl,
6786 const ptrdiff_t *ldvl,
6787 double *vr,
6788 const ptrdiff_t *ldvr,
6789 ptrdiff_t *ilo,
6790 ptrdiff_t *ihi,
6791 double *scale,
6792 double *abnrm,
6793 double *rconde,
6794 double *rcondv,
6795 double *work,
6796 const ptrdiff_t *lwork,
6797 ptrdiff_t *iwork,
6798 ptrdiff_t *info
6799);
6800
6801/* Source: dgegs.f */
6802#define dgegs FORTRAN_WRAPPER(dgegs)
6803extern void dgegs(
6804 const char *jobvsl,
6805 const char *jobvsr,
6806 const ptrdiff_t *n,
6807 double *a,
6808 const ptrdiff_t *lda,
6809 double *b,
6810 const ptrdiff_t *ldb,
6811 double *alphar,
6812 double *alphai,
6813 double *beta,
6814 double *vsl,
6815 const ptrdiff_t *ldvsl,
6816 double *vsr,
6817 const ptrdiff_t *ldvsr,
6818 double *work,
6819 const ptrdiff_t *lwork,
6820 ptrdiff_t *info
6821);
6822
6823/* Source: dgegv.f */
6824#define dgegv FORTRAN_WRAPPER(dgegv)
6825extern void dgegv(
6826 const char *jobvl,
6827 const char *jobvr,
6828 const ptrdiff_t *n,
6829 double *a,
6830 const ptrdiff_t *lda,
6831 double *b,
6832 const ptrdiff_t *ldb,
6833 double *alphar,
6834 double *alphai,
6835 double *beta,
6836 double *vl,
6837 const ptrdiff_t *ldvl,
6838 double *vr,
6839 const ptrdiff_t *ldvr,
6840 double *work,
6841 const ptrdiff_t *lwork,
6842 ptrdiff_t *info
6843);
6844
6845/* Source: dgehd2.f */
6846#define dgehd2 FORTRAN_WRAPPER(dgehd2)
6847extern void dgehd2(
6848 const ptrdiff_t *n,
6849 const ptrdiff_t *ilo,
6850 const ptrdiff_t *ihi,
6851 double *a,
6852 const ptrdiff_t *lda,
6853 double *tau,
6854 double *work,
6855 ptrdiff_t *info
6856);
6857
6858/* Source: dgehrd.f */
6859#define dgehrd FORTRAN_WRAPPER(dgehrd)
6860extern void dgehrd(
6861 const ptrdiff_t *n,
6862 const ptrdiff_t *ilo,
6863 const ptrdiff_t *ihi,
6864 double *a,
6865 const ptrdiff_t *lda,
6866 double *tau,
6867 double *work,
6868 const ptrdiff_t *lwork,
6869 ptrdiff_t *info
6870);
6871
6872/* Source: dgejsv.f */
6873#define dgejsv FORTRAN_WRAPPER(dgejsv)
6874extern void dgejsv(
6875 char *joba,
6876 char *jobu,
6877 char *jobv,
6878 char *jobr,
6879 char *jobt,
6880 char *jobp,
6881 const ptrdiff_t *m,
6882 const ptrdiff_t *n,
6883 double *a,
6884 const ptrdiff_t *lda,
6885 double *sva,
6886 double *u,
6887 const ptrdiff_t *ldu,
6888 double *v,
6889 const ptrdiff_t *ldv,
6890 double *work,
6891 const ptrdiff_t *lwork,
6892 ptrdiff_t *iwork,
6893 ptrdiff_t *info
6894);
6895
6896/* Source: dgelq2.f */
6897#define dgelq2 FORTRAN_WRAPPER(dgelq2)
6898extern void dgelq2(
6899 const ptrdiff_t *m,
6900 const ptrdiff_t *n,
6901 double *a,
6902 const ptrdiff_t *lda,
6903 double *tau,
6904 double *work,
6905 ptrdiff_t *info
6906);
6907
6908/* Source: dgelqf.f */
6909#define dgelqf FORTRAN_WRAPPER(dgelqf)
6910extern void dgelqf(
6911 const ptrdiff_t *m,
6912 const ptrdiff_t *n,
6913 double *a,
6914 const ptrdiff_t *lda,
6915 double *tau,
6916 double *work,
6917 const ptrdiff_t *lwork,
6918 ptrdiff_t *info
6919);
6920
6921/* Source: dgels.f */
6922#define dgels FORTRAN_WRAPPER(dgels)
6923extern void dgels(
6924 const char *trans,
6925 const ptrdiff_t *m,
6926 const ptrdiff_t *n,
6927 const ptrdiff_t *nrhs,
6928 double *a,
6929 const ptrdiff_t *lda,
6930 double *b,
6931 const ptrdiff_t *ldb,
6932 double *work,
6933 const ptrdiff_t *lwork,
6934 ptrdiff_t *info
6935);
6936
6937/* Source: dgelsd.f */
6938#define dgelsd FORTRAN_WRAPPER(dgelsd)
6939extern void dgelsd(
6940 const ptrdiff_t *m,
6941 const ptrdiff_t *n,
6942 const ptrdiff_t *nrhs,
6943 const double *a,
6944 const ptrdiff_t *lda,
6945 double *b,
6946 const ptrdiff_t *ldb,
6947 double *s,
6948 const double *rcond,
6949 ptrdiff_t *rank,
6950 double *work,
6951 const ptrdiff_t *lwork,
6952 ptrdiff_t *iwork,
6953 ptrdiff_t *info
6954);
6955
6956/* Source: dgelss.f */
6957#define dgelss FORTRAN_WRAPPER(dgelss)
6958extern void dgelss(
6959 const ptrdiff_t *m,
6960 const ptrdiff_t *n,
6961 const ptrdiff_t *nrhs,
6962 double *a,
6963 const ptrdiff_t *lda,
6964 double *b,
6965 const ptrdiff_t *ldb,
6966 double *s,
6967 const double *rcond,
6968 ptrdiff_t *rank,
6969 double *work,
6970 const ptrdiff_t *lwork,
6971 ptrdiff_t *info
6972);
6973
6974/* Source: dgelsx.f */
6975#define dgelsx FORTRAN_WRAPPER(dgelsx)
6976extern void dgelsx(
6977 const ptrdiff_t *m,
6978 const ptrdiff_t *n,
6979 const ptrdiff_t *nrhs,
6980 double *a,
6981 const ptrdiff_t *lda,
6982 double *b,
6983 const ptrdiff_t *ldb,
6984 ptrdiff_t *jpvt,
6985 const double *rcond,
6986 ptrdiff_t *rank,
6987 double *work,
6988 ptrdiff_t *info
6989);
6990
6991/* Source: dgelsy.f */
6992#define dgelsy FORTRAN_WRAPPER(dgelsy)
6993extern void dgelsy(
6994 const ptrdiff_t *m,
6995 const ptrdiff_t *n,
6996 const ptrdiff_t *nrhs,
6997 double *a,
6998 const ptrdiff_t *lda,
6999 double *b,
7000 const ptrdiff_t *ldb,
7001 ptrdiff_t *jpvt,
7002 const double *rcond,
7003 ptrdiff_t *rank,
7004 double *work,
7005 const ptrdiff_t *lwork,
7006 ptrdiff_t *info
7007);
7008
7009/* Source: dgemqrt.f */
7010#define dgemqrt FORTRAN_WRAPPER(dgemqrt)
7011extern void dgemqrt(
7012 const char *side,
7013 const char *trans,
7014 const ptrdiff_t *m,
7015 const ptrdiff_t *n,
7016 const ptrdiff_t *k,
7017 const ptrdiff_t *nb,
7018 const double *v,
7019 const ptrdiff_t *ldv,
7020 const double *t,
7021 const ptrdiff_t *ldt,
7022 double *c,
7023 const ptrdiff_t *ldc,
7024 double *work,
7025 ptrdiff_t *info
7026);
7027
7028/* Source: dgeql2.f */
7029#define dgeql2 FORTRAN_WRAPPER(dgeql2)
7030extern void dgeql2(
7031 const ptrdiff_t *m,
7032 const ptrdiff_t *n,
7033 double *a,
7034 const ptrdiff_t *lda,
7035 double *tau,
7036 double *work,
7037 ptrdiff_t *info
7038);
7039
7040/* Source: dgeqlf.f */
7041#define dgeqlf FORTRAN_WRAPPER(dgeqlf)
7042extern void dgeqlf(
7043 const ptrdiff_t *m,
7044 const ptrdiff_t *n,
7045 double *a,
7046 const ptrdiff_t *lda,
7047 double *tau,
7048 double *work,
7049 const ptrdiff_t *lwork,
7050 ptrdiff_t *info
7051);
7052
7053/* Source: dgeqp3.f */
7054#define dgeqp3 FORTRAN_WRAPPER(dgeqp3)
7055extern void dgeqp3(
7056 const ptrdiff_t *m,
7057 const ptrdiff_t *n,
7058 double *a,
7059 const ptrdiff_t *lda,
7060 ptrdiff_t *jpvt,
7061 double *tau,
7062 double *work,
7063 const ptrdiff_t *lwork,
7064 ptrdiff_t *info
7065);
7066
7067/* Source: dgeqpf.f */
7068#define dgeqpf FORTRAN_WRAPPER(dgeqpf)
7069extern void dgeqpf(
7070 const ptrdiff_t *m,
7071 const ptrdiff_t *n,
7072 double *a,
7073 const ptrdiff_t *lda,
7074 ptrdiff_t *jpvt,
7075 double *tau,
7076 double *work,
7077 ptrdiff_t *info
7078);
7079
7080/* Source: dgeqr2.f */
7081#define dgeqr2 FORTRAN_WRAPPER(dgeqr2)
7082extern void dgeqr2(
7083 const ptrdiff_t *m,
7084 const ptrdiff_t *n,
7085 double *a,
7086 const ptrdiff_t *lda,
7087 double *tau,
7088 double *work,
7089 ptrdiff_t *info
7090);
7091
7092/* Source: dgeqr2p.f */
7093#define dgeqr2p FORTRAN_WRAPPER(dgeqr2p)
7094extern void dgeqr2p(
7095 const ptrdiff_t *m,
7096 const ptrdiff_t *n,
7097 double *a,
7098 const ptrdiff_t *lda,
7099 double *tau,
7100 double *work,
7101 ptrdiff_t *info
7102);
7103
7104/* Source: dgeqrf.f */
7105#define dgeqrf FORTRAN_WRAPPER(dgeqrf)
7106extern void dgeqrf(
7107 const ptrdiff_t *m,
7108 const ptrdiff_t *n,
7109 double *a,
7110 const ptrdiff_t *lda,
7111 double *tau,
7112 double *work,
7113 const ptrdiff_t *lwork,
7114 ptrdiff_t *info
7115);
7116
7117/* Source: dgeqrfp.f */
7118#define dgeqrfp FORTRAN_WRAPPER(dgeqrfp)
7119extern void dgeqrfp(
7120 const ptrdiff_t *m,
7121 const ptrdiff_t *n,
7122 double *a,
7123 const ptrdiff_t *lda,
7124 double *tau,
7125 double *work,
7126 const ptrdiff_t *lwork,
7127 ptrdiff_t *info
7128);
7129
7130/* Source: dgeqrt.f */
7131#define dgeqrt FORTRAN_WRAPPER(dgeqrt)
7132extern void dgeqrt(
7133 const ptrdiff_t *m,
7134 const ptrdiff_t *n,
7135 const ptrdiff_t *nb,
7136 double *a,
7137 const ptrdiff_t *lda,
7138 double *t,
7139 const ptrdiff_t *ldt,
7140 double *work,
7141 ptrdiff_t *info
7142);
7143
7144/* Source: dgeqrt2.f */
7145#define dgeqrt2 FORTRAN_WRAPPER(dgeqrt2)
7146extern void dgeqrt2(
7147 const ptrdiff_t *m,
7148 const ptrdiff_t *n,
7149 double *a,
7150 const ptrdiff_t *lda,
7151 double *t,
7152 const ptrdiff_t *ldt,
7153 ptrdiff_t *info
7154);
7155
7156/* Source: dgeqrt3.f */
7157#define dgeqrt3 FORTRAN_WRAPPER(dgeqrt3)
7158extern void dgeqrt3(
7159 const ptrdiff_t *m,
7160 const ptrdiff_t *n,
7161 double *a,
7162 const ptrdiff_t *lda,
7163 double *t,
7164 const ptrdiff_t *ldt,
7165 ptrdiff_t *info
7166);
7167
7168/* Source: dgerfs.f */
7169#define dgerfs FORTRAN_WRAPPER(dgerfs)
7170extern void dgerfs(
7171 const char *trans,
7172 const ptrdiff_t *n,
7173 const ptrdiff_t *nrhs,
7174 const double *a,
7175 const ptrdiff_t *lda,
7176 const double *af,
7177 const ptrdiff_t *ldaf,
7178 const ptrdiff_t *ipiv,
7179 const double *b,
7180 const ptrdiff_t *ldb,
7181 double *x,
7182 const ptrdiff_t *ldx,
7183 double *ferr,
7184 double *berr,
7185 double *work,
7186 ptrdiff_t *iwork,
7187 ptrdiff_t *info
7188);
7189
7190/* Source: dgerq2.f */
7191#define dgerq2 FORTRAN_WRAPPER(dgerq2)
7192extern void dgerq2(
7193 const ptrdiff_t *m,
7194 const ptrdiff_t *n,
7195 double *a,
7196 const ptrdiff_t *lda,
7197 double *tau,
7198 double *work,
7199 ptrdiff_t *info
7200);
7201
7202/* Source: dgerqf.f */
7203#define dgerqf FORTRAN_WRAPPER(dgerqf)
7204extern void dgerqf(
7205 const ptrdiff_t *m,
7206 const ptrdiff_t *n,
7207 double *a,
7208 const ptrdiff_t *lda,
7209 double *tau,
7210 double *work,
7211 const ptrdiff_t *lwork,
7212 ptrdiff_t *info
7213);
7214
7215/* Source: dgesc2.f */
7216#define dgesc2 FORTRAN_WRAPPER(dgesc2)
7217extern void dgesc2(
7218 const ptrdiff_t *n,
7219 const double *a,
7220 const ptrdiff_t *lda,
7221 double *rhs,
7222 const ptrdiff_t *ipiv,
7223 const ptrdiff_t *jpiv,
7224 double *scale
7225);
7226
7227/* Source: dgesdd.f */
7228#define dgesdd FORTRAN_WRAPPER(dgesdd)
7229extern void dgesdd(
7230 const char *jobz,
7231 const ptrdiff_t *m,
7232 const ptrdiff_t *n,
7233 double *a,
7234 const ptrdiff_t *lda,
7235 double *s,
7236 double *u,
7237 const ptrdiff_t *ldu,
7238 double *vt,
7239 const ptrdiff_t *ldvt,
7240 double *work,
7241 const ptrdiff_t *lwork,
7242 ptrdiff_t *iwork,
7243 ptrdiff_t *info
7244);
7245
7246/* Source: dgesv.f */
7247#define dgesv FORTRAN_WRAPPER(dgesv)
7248extern void dgesv(
7249 const ptrdiff_t *n,
7250 const ptrdiff_t *nrhs,
7251 double *a,
7252 const ptrdiff_t *lda,
7253 ptrdiff_t *ipiv,
7254 double *b,
7255 const ptrdiff_t *ldb,
7256 ptrdiff_t *info
7257);
7258
7259/* Source: dgesvd.f */
7260#define dgesvd FORTRAN_WRAPPER(dgesvd)
7261extern void dgesvd(
7262 const char *jobu,
7263 const char *jobvt,
7264 const ptrdiff_t *m,
7265 const ptrdiff_t *n,
7266 double *a,
7267 const ptrdiff_t *lda,
7268 double *s,
7269 double *u,
7270 const ptrdiff_t *ldu,
7271 double *vt,
7272 const ptrdiff_t *ldvt,
7273 double *work,
7274 const ptrdiff_t *lwork,
7275 ptrdiff_t *info
7276);
7277
7278/* Source: dgesvj.f */
7279#define dgesvj FORTRAN_WRAPPER(dgesvj)
7280extern void dgesvj(
7281 const char *joba,
7282 const char *jobu,
7283 const char *jobv,
7284 const ptrdiff_t *m,
7285 const ptrdiff_t *n,
7286 double *a,
7287 const ptrdiff_t *lda,
7288 double *sva,
7289 const ptrdiff_t *mv,
7290 double *v,
7291 const ptrdiff_t *ldv,
7292 double *work,
7293 ptrdiff_t *lwork,
7294 ptrdiff_t *info
7295);
7296
7297/* Source: dgesvx.f */
7298#define dgesvx FORTRAN_WRAPPER(dgesvx)
7299extern void dgesvx(
7300 const char *fact,
7301 const char *trans,
7302 const ptrdiff_t *n,
7303 const ptrdiff_t *nrhs,
7304 double *a,
7305 const ptrdiff_t *lda,
7306 double *af,
7307 const ptrdiff_t *ldaf,
7308 ptrdiff_t *ipiv,
7309 char *equed,
7310 double *r,
7311 double *c,
7312 double *b,
7313 const ptrdiff_t *ldb,
7314 double *x,
7315 const ptrdiff_t *ldx,
7316 double *rcond,
7317 double *ferr,
7318 double *berr,
7319 double *work,
7320 ptrdiff_t *iwork,
7321 ptrdiff_t *info
7322);
7323
7324/* Source: dgetc2.f */
7325#define dgetc2 FORTRAN_WRAPPER(dgetc2)
7326extern void dgetc2(
7327 const ptrdiff_t *n,
7328 double *a,
7329 const ptrdiff_t *lda,
7330 ptrdiff_t *ipiv,
7331 ptrdiff_t *jpiv,
7332 ptrdiff_t *info
7333);
7334
7335/* Source: dgetf2.f */
7336#define dgetf2 FORTRAN_WRAPPER(dgetf2)
7337extern void dgetf2(
7338 const ptrdiff_t *m,
7339 const ptrdiff_t *n,
7340 double *a,
7341 const ptrdiff_t *lda,
7342 ptrdiff_t *ipiv,
7343 ptrdiff_t *info
7344);
7345
7346/* Source: dgetrf.f */
7347#define dgetrf FORTRAN_WRAPPER(dgetrf)
7348extern void dgetrf(
7349 const ptrdiff_t *m,
7350 const ptrdiff_t *n,
7351 double *a,
7352 const ptrdiff_t *lda,
7353 ptrdiff_t *ipiv,
7354 ptrdiff_t *info
7355);
7356
7357/* Source: dgetri.f */
7358#define dgetri FORTRAN_WRAPPER(dgetri)
7359extern void dgetri(
7360 const ptrdiff_t *n,
7361 double *a,
7362 const ptrdiff_t *lda,
7363 const ptrdiff_t *ipiv,
7364 double *work,
7365 const ptrdiff_t *lwork,
7366 ptrdiff_t *info
7367);
7368
7369/* Source: dgetrs.f */
7370#define dgetrs FORTRAN_WRAPPER(dgetrs)
7371extern void dgetrs(
7372 const char *trans,
7373 const ptrdiff_t *n,
7374 const ptrdiff_t *nrhs,
7375 const double *a,
7376 const ptrdiff_t *lda,
7377 const ptrdiff_t *ipiv,
7378 double *b,
7379 const ptrdiff_t *ldb,
7380 ptrdiff_t *info
7381);
7382
7383/* Source: dggbak.f */
7384#define dggbak FORTRAN_WRAPPER(dggbak)
7385extern void dggbak(
7386 const char *job,
7387 const char *side,
7388 const ptrdiff_t *n,
7389 const ptrdiff_t *ilo,
7390 const ptrdiff_t *ihi,
7391 const double *lscale,
7392 const double *rscale,
7393 const ptrdiff_t *m,
7394 double *v,
7395 const ptrdiff_t *ldv,
7396 ptrdiff_t *info
7397);
7398
7399/* Source: dggbal.f */
7400#define dggbal FORTRAN_WRAPPER(dggbal)
7401extern void dggbal(
7402 const char *job,
7403 const ptrdiff_t *n,
7404 double *a,
7405 const ptrdiff_t *lda,
7406 double *b,
7407 const ptrdiff_t *ldb,
7408 ptrdiff_t *ilo,
7409 ptrdiff_t *ihi,
7410 double *lscale,
7411 double *rscale,
7412 double *work,
7413 ptrdiff_t *info
7414);
7415
7416/* Source: dgges.f */
7417#define dgges FORTRAN_WRAPPER(dgges)
7418extern void dgges(
7419 const char *jobvsl,
7420 const char *jobvsr,
7421 const char *sort,
7422 ptrdiff_t (*selctg)(),
7423 const ptrdiff_t *n,
7424 double *a,
7425 const ptrdiff_t *lda,
7426 double *b,
7427 const ptrdiff_t *ldb,
7428 ptrdiff_t *sdim,
7429 double *alphar,
7430 double *alphai,
7431 double *beta,
7432 double *vsl,
7433 const ptrdiff_t *ldvsl,
7434 double *vsr,
7435 const ptrdiff_t *ldvsr,
7436 double *work,
7437 const ptrdiff_t *lwork,
7438 ptrdiff_t *bwork,
7439 ptrdiff_t *info
7440);
7441
7442/* Source: dggesx.f */
7443#define dggesx FORTRAN_WRAPPER(dggesx)
7444extern void dggesx(
7445 const char *jobvsl,
7446 const char *jobvsr,
7447 const char *sort,
7448 ptrdiff_t (*selctg)(),
7449 const char *sense,
7450 const ptrdiff_t *n,
7451 double *a,
7452 const ptrdiff_t *lda,
7453 double *b,
7454 const ptrdiff_t *ldb,
7455 ptrdiff_t *sdim,
7456 double *alphar,
7457 double *alphai,
7458 double *beta,
7459 double *vsl,
7460 const ptrdiff_t *ldvsl,
7461 double *vsr,
7462 const ptrdiff_t *ldvsr,
7463 double *rconde,
7464 double *rcondv,
7465 double *work,
7466 const ptrdiff_t *lwork,
7467 ptrdiff_t *iwork,
7468 const ptrdiff_t *liwork,
7469 ptrdiff_t *bwork,
7470 ptrdiff_t *info
7471);
7472
7473/* Source: dggev.f */
7474#define dggev FORTRAN_WRAPPER(dggev)
7475extern void dggev(
7476 const char *jobvl,
7477 const char *jobvr,
7478 const ptrdiff_t *n,
7479 double *a,
7480 const ptrdiff_t *lda,
7481 double *b,
7482 const ptrdiff_t *ldb,
7483 double *alphar,
7484 double *alphai,
7485 double *beta,
7486 double *vl,
7487 const ptrdiff_t *ldvl,
7488 double *vr,
7489 const ptrdiff_t *ldvr,
7490 double *work,
7491 const ptrdiff_t *lwork,
7492 ptrdiff_t *info
7493);
7494
7495/* Source: dggevx.f */
7496#define dggevx FORTRAN_WRAPPER(dggevx)
7497extern void dggevx(
7498 const char *balanc,
7499 const char *jobvl,
7500 const char *jobvr,
7501 const char *sense,
7502 const ptrdiff_t *n,
7503 double *a,
7504 const ptrdiff_t *lda,
7505 double *b,
7506 const ptrdiff_t *ldb,
7507 double *alphar,
7508 double *alphai,
7509 double *beta,
7510 double *vl,
7511 const ptrdiff_t *ldvl,
7512 double *vr,
7513 const ptrdiff_t *ldvr,
7514 ptrdiff_t *ilo,
7515 ptrdiff_t *ihi,
7516 double *lscale,
7517 double *rscale,
7518 double *abnrm,
7519 double *bbnrm,
7520 double *rconde,
7521 double *rcondv,
7522 double *work,
7523 const ptrdiff_t *lwork,
7524 ptrdiff_t *iwork,
7525 ptrdiff_t *bwork,
7526 ptrdiff_t *info
7527);
7528
7529/* Source: dggglm.f */
7530#define dggglm FORTRAN_WRAPPER(dggglm)
7531extern void dggglm(
7532 const ptrdiff_t *n,
7533 const ptrdiff_t *m,
7534 const ptrdiff_t *p,
7535 double *a,
7536 const ptrdiff_t *lda,
7537 double *b,
7538 const ptrdiff_t *ldb,
7539 double *d,
7540 double *x,
7541 double *y,
7542 double *work,
7543 const ptrdiff_t *lwork,
7544 ptrdiff_t *info
7545);
7546
7547/* Source: dgghrd.f */
7548#define dgghrd FORTRAN_WRAPPER(dgghrd)
7549extern void dgghrd(
7550 const char *compq,
7551 const char *compz,
7552 const ptrdiff_t *n,
7553 const ptrdiff_t *ilo,
7554 const ptrdiff_t *ihi,
7555 double *a,
7556 const ptrdiff_t *lda,
7557 double *b,
7558 const ptrdiff_t *ldb,
7559 double *q,
7560 const ptrdiff_t *ldq,
7561 double *z,
7562 const ptrdiff_t *ldz,
7563 ptrdiff_t *info
7564);
7565
7566/* Source: dgglse.f */
7567#define dgglse FORTRAN_WRAPPER(dgglse)
7568extern void dgglse(
7569 const ptrdiff_t *m,
7570 const ptrdiff_t *n,
7571 const ptrdiff_t *p,
7572 double *a,
7573 const ptrdiff_t *lda,
7574 double *b,
7575 const ptrdiff_t *ldb,
7576 double *c,
7577 double *d,
7578 double *x,
7579 double *work,
7580 const ptrdiff_t *lwork,
7581 ptrdiff_t *info
7582);
7583
7584/* Source: dggqrf.f */
7585#define dggqrf FORTRAN_WRAPPER(dggqrf)
7586extern void dggqrf(
7587 const ptrdiff_t *n,
7588 const ptrdiff_t *m,
7589 const ptrdiff_t *p,
7590 double *a,
7591 const ptrdiff_t *lda,
7592 double *taua,
7593 double *b,
7594 const ptrdiff_t *ldb,
7595 double *taub,
7596 double *work,
7597 const ptrdiff_t *lwork,
7598 ptrdiff_t *info
7599);
7600
7601/* Source: dggrqf.f */
7602#define dggrqf FORTRAN_WRAPPER(dggrqf)
7603extern void dggrqf(
7604 const ptrdiff_t *m,
7605 const ptrdiff_t *p,
7606 const ptrdiff_t *n,
7607 double *a,
7608 const ptrdiff_t *lda,
7609 double *taua,
7610 double *b,
7611 const ptrdiff_t *ldb,
7612 double *taub,
7613 double *work,
7614 const ptrdiff_t *lwork,
7615 ptrdiff_t *info
7616);
7617
7618/* Source: dggsvd.f */
7619#define dggsvd FORTRAN_WRAPPER(dggsvd)
7620extern void dggsvd(
7621 const char *jobu,
7622 const char *jobv,
7623 const char *jobq,
7624 const ptrdiff_t *m,
7625 const ptrdiff_t *n,
7626 const ptrdiff_t *p,
7627 ptrdiff_t *k,
7628 ptrdiff_t *l,
7629 double *a,
7630 const ptrdiff_t *lda,
7631 double *b,
7632 const ptrdiff_t *ldb,
7633 double *alpha,
7634 double *beta,
7635 double *u,
7636 const ptrdiff_t *ldu,
7637 double *v,
7638 const ptrdiff_t *ldv,
7639 double *q,
7640 const ptrdiff_t *ldq,
7641 double *work,
7642 ptrdiff_t *iwork,
7643 ptrdiff_t *info
7644);
7645
7646/* Source: dggsvp.f */
7647#define dggsvp FORTRAN_WRAPPER(dggsvp)
7648extern void dggsvp(
7649 const char *jobu,
7650 const char *jobv,
7651 const char *jobq,
7652 const ptrdiff_t *m,
7653 const ptrdiff_t *p,
7654 const ptrdiff_t *n,
7655 double *a,
7656 const ptrdiff_t *lda,
7657 double *b,
7658 const ptrdiff_t *ldb,
7659 const double *tola,
7660 const double *tolb,
7661 ptrdiff_t *k,
7662 ptrdiff_t *l,
7663 double *u,
7664 const ptrdiff_t *ldu,
7665 double *v,
7666 const ptrdiff_t *ldv,
7667 double *q,
7668 const ptrdiff_t *ldq,
7669 ptrdiff_t *iwork,
7670 double *tau,
7671 double *work,
7672 ptrdiff_t *info
7673);
7674
7675/* Source: dgsvj0.f */
7676#define dgsvj0 FORTRAN_WRAPPER(dgsvj0)
7677extern void dgsvj0(
7678 const char *jobv,
7679 const ptrdiff_t *m,
7680 const ptrdiff_t *n,
7681 double *a,
7682 const ptrdiff_t *lda,
7683 double *d,
7684 double *sva,
7685 const ptrdiff_t *mv,
7686 double *v,
7687 const ptrdiff_t *ldv,
7688 const double *eps,
7689 const double *sfmin,
7690 const double *tol,
7691 const ptrdiff_t *nsweep,
7692 double *work,
7693 const ptrdiff_t *lwork,
7694 ptrdiff_t *info
7695);
7696
7697/* Source: dgsvj1.f */
7698#define dgsvj1 FORTRAN_WRAPPER(dgsvj1)
7699extern void dgsvj1(
7700 const char *jobv,
7701 const ptrdiff_t *m,
7702 const ptrdiff_t *n,
7703 const ptrdiff_t *n1,
7704 double *a,
7705 const ptrdiff_t *lda,
7706 double *d,
7707 double *sva,
7708 const ptrdiff_t *mv,
7709 double *v,
7710 const ptrdiff_t *ldv,
7711 const double *eps,
7712 const double *sfmin,
7713 const double *tol,
7714 const ptrdiff_t *nsweep,
7715 double *work,
7716 const ptrdiff_t *lwork,
7717 ptrdiff_t *info
7718);
7719
7720/* Source: dgtcon.f */
7721#define dgtcon FORTRAN_WRAPPER(dgtcon)
7722extern void dgtcon(
7723 const char *norm,
7724 const ptrdiff_t *n,
7725 const double *dl,
7726 const double *d,
7727 const double *du,
7728 const double *du2,
7729 const ptrdiff_t *ipiv,
7730 const double *anorm,
7731 double *rcond,
7732 double *work,
7733 ptrdiff_t *iwork,
7734 ptrdiff_t *info
7735);
7736
7737/* Source: dgtrfs.f */
7738#define dgtrfs FORTRAN_WRAPPER(dgtrfs)
7739extern void dgtrfs(
7740 const char *trans,
7741 const ptrdiff_t *n,
7742 const ptrdiff_t *nrhs,
7743 const double *dl,
7744 const double *d,
7745 const double *du,
7746 const double *dlf,
7747 const double *df,
7748 const double *duf,
7749 const double *du2,
7750 const ptrdiff_t *ipiv,
7751 const double *b,
7752 const ptrdiff_t *ldb,
7753 double *x,
7754 const ptrdiff_t *ldx,
7755 double *ferr,
7756 double *berr,
7757 double *work,
7758 ptrdiff_t *iwork,
7759 ptrdiff_t *info
7760);
7761
7762/* Source: dgtsv.f */
7763#define dgtsv FORTRAN_WRAPPER(dgtsv)
7764extern void dgtsv(
7765 const ptrdiff_t *n,
7766 const ptrdiff_t *nrhs,
7767 double *dl,
7768 double *d,
7769 double *du,
7770 double *b,
7771 const ptrdiff_t *ldb,
7772 ptrdiff_t *info
7773);
7774
7775/* Source: dgtsvx.f */
7776#define dgtsvx FORTRAN_WRAPPER(dgtsvx)
7777extern void dgtsvx(
7778 const char *fact,
7779 const char *trans,
7780 const ptrdiff_t *n,
7781 const ptrdiff_t *nrhs,
7782 const double *dl,
7783 const double *d,
7784 const double *du,
7785 double *dlf,
7786 double *df,
7787 double *duf,
7788 double *du2,
7789 ptrdiff_t *ipiv,
7790 const double *b,
7791 const ptrdiff_t *ldb,
7792 double *x,
7793 const ptrdiff_t *ldx,
7794 double *rcond,
7795 double *ferr,
7796 double *berr,
7797 double *work,
7798 ptrdiff_t *iwork,
7799 ptrdiff_t *info
7800);
7801
7802/* Source: dgttrf.f */
7803#define dgttrf FORTRAN_WRAPPER(dgttrf)
7804extern void dgttrf(
7805 const ptrdiff_t *n,
7806 double *dl,
7807 double *d,
7808 double *du,
7809 double *du2,
7810 ptrdiff_t *ipiv,
7811 ptrdiff_t *info
7812);
7813
7814/* Source: dgttrs.f */
7815#define dgttrs FORTRAN_WRAPPER(dgttrs)
7816extern void dgttrs(
7817 const char *trans,
7818 const ptrdiff_t *n,
7819 const ptrdiff_t *nrhs,
7820 const double *dl,
7821 const double *d,
7822 const double *du,
7823 const double *du2,
7824 const ptrdiff_t *ipiv,
7825 double *b,
7826 const ptrdiff_t *ldb,
7827 ptrdiff_t *info
7828);
7829
7830/* Source: dgtts2.f */
7831#define dgtts2 FORTRAN_WRAPPER(dgtts2)
7832extern void dgtts2(
7833 const ptrdiff_t *itrans,
7834 const ptrdiff_t *n,
7835 const ptrdiff_t *nrhs,
7836 const double *dl,
7837 const double *d,
7838 const double *du,
7839 const double *du2,
7840 const ptrdiff_t *ipiv,
7841 double *b,
7842 const ptrdiff_t *ldb
7843);
7844
7845/* Source: dhgeqz.f */
7846#define dhgeqz FORTRAN_WRAPPER(dhgeqz)
7847extern void dhgeqz(
7848 const char *job,
7849 const char *compq,
7850 const char *compz,
7851 const ptrdiff_t *n,
7852 const ptrdiff_t *ilo,
7853 const ptrdiff_t *ihi,
7854 double *h,
7855 const ptrdiff_t *ldh,
7856 double *t,
7857 const ptrdiff_t *ldt,
7858 double *alphar,
7859 double *alphai,
7860 double *beta,
7861 double *q,
7862 const ptrdiff_t *ldq,
7863 double *z,
7864 const ptrdiff_t *ldz,
7865 double *work,
7866 const ptrdiff_t *lwork,
7867 ptrdiff_t *info
7868);
7869
7870/* Source: dhsein.f */
7871#define dhsein FORTRAN_WRAPPER(dhsein)
7872extern void dhsein(
7873 const char *side,
7874 const char *eigsrc,
7875 const char *initv,
7876 ptrdiff_t *select,
7877 const ptrdiff_t *n,
7878 const double *h,
7879 const ptrdiff_t *ldh,
7880 double *wr,
7881 const double *wi,
7882 double *vl,
7883 const ptrdiff_t *ldvl,
7884 double *vr,
7885 const ptrdiff_t *ldvr,
7886 const ptrdiff_t *mm,
7887 ptrdiff_t *m,
7888 double *work,
7889 ptrdiff_t *ifaill,
7890 ptrdiff_t *ifailr,
7891 ptrdiff_t *info
7892);
7893
7894/* Source: dhseqr.f */
7895#define dhseqr FORTRAN_WRAPPER(dhseqr)
7896extern void dhseqr(
7897 const char *job,
7898 const char *compz,
7899 const ptrdiff_t *n,
7900 const ptrdiff_t *ilo,
7901 const ptrdiff_t *ihi,
7902 double *h,
7903 const ptrdiff_t *ldh,
7904 double *wr,
7905 double *wi,
7906 double *z,
7907 const ptrdiff_t *ldz,
7908 double *work,
7909 const ptrdiff_t *lwork,
7910 ptrdiff_t *info
7911);
7912
7913/* Source: disnan.f */
7914#define disnan FORTRAN_WRAPPER(disnan)
7915extern ptrdiff_t disnan(
7916 const double *din
7917);
7918
7919/* Source: dlabad.f */
7920#define dlabad FORTRAN_WRAPPER(dlabad)
7921extern void dlabad(
7922 double *small,
7923 double *large
7924);
7925
7926/* Source: dlabrd.f */
7927#define dlabrd FORTRAN_WRAPPER(dlabrd)
7928extern void dlabrd(
7929 const ptrdiff_t *m,
7930 const ptrdiff_t *n,
7931 const ptrdiff_t *nb,
7932 double *a,
7933 const ptrdiff_t *lda,
7934 double *d,
7935 double *e,
7936 double *tauq,
7937 double *taup,
7938 double *x,
7939 const ptrdiff_t *ldx,
7940 double *y,
7941 const ptrdiff_t *ldy
7942);
7943
7944/* Source: dlacn2.f */
7945#define dlacn2 FORTRAN_WRAPPER(dlacn2)
7946extern void dlacn2(
7947 const ptrdiff_t *n,
7948 double *v,
7949 double *x,
7950 ptrdiff_t *isgn,
7951 double *est,
7952 ptrdiff_t *kase,
7953 ptrdiff_t *isave
7954);
7955
7956/* Source: dlacon.f */
7957#define dlacon FORTRAN_WRAPPER(dlacon)
7958extern void dlacon(
7959 const ptrdiff_t *n,
7960 double *v,
7961 double *x,
7962 ptrdiff_t *isgn,
7963 double *est,
7964 ptrdiff_t *kase
7965);
7966
7967/* Source: dlacpy.f */
7968#define dlacpy FORTRAN_WRAPPER(dlacpy)
7969extern void dlacpy(
7970 const char *uplo,
7971 const ptrdiff_t *m,
7972 const ptrdiff_t *n,
7973 const double *a,
7974 const ptrdiff_t *lda,
7975 double *b,
7976 const ptrdiff_t *ldb
7977);
7978
7979/* Source: dladiv.f */
7980#define dladiv FORTRAN_WRAPPER(dladiv)
7981extern void dladiv(
7982 const double *a,
7983 const double *b,
7984 const double *c,
7985 const double *d,
7986 double *p,
7987 double *q
7988);
7989
7990/* Source: dladiv.f */
7991#define dladiv1 FORTRAN_WRAPPER(dladiv1)
7992extern void dladiv1(
7993 const double *a,
7994 const double *b,
7995 const double *c,
7996 const double *d,
7997 double *p,
7998 double *q
7999);
8000
8001/* Source: dladiv.f */
8002#define dladiv2 FORTRAN_WRAPPER(dladiv2)
8003extern double dladiv2(
8004 const double *a,
8005 const double *b,
8006 const double *c,
8007 const double *d,
8008 double *r,
8009 double *t
8010);
8011
8012/* Source: dlae2.f */
8013#define dlae2 FORTRAN_WRAPPER(dlae2)
8014extern void dlae2(
8015 const double *a,
8016 const double *b,
8017 const double *c,
8018 double *rt1,
8019 double *rt2
8020);
8021
8022/* Source: dlaebz.f */
8023#define dlaebz FORTRAN_WRAPPER(dlaebz)
8024extern void dlaebz(
8025 const ptrdiff_t *ijob,
8026 const ptrdiff_t *nitmax,
8027 const ptrdiff_t *n,
8028 const ptrdiff_t *mmax,
8029 const ptrdiff_t *minp,
8030 const ptrdiff_t *nbmin,
8031 const double *abstol,
8032 const double *reltol,
8033 const double *pivmin,
8034 const double *d,
8035 const double *e,
8036 const double *e2,
8037 ptrdiff_t *nval,
8038 double *ab,
8039 double *c,
8040 ptrdiff_t *mout,
8041 ptrdiff_t *nab,
8042 double *work,
8043 ptrdiff_t *iwork,
8044 ptrdiff_t *info
8045);
8046
8047/* Source: dlaed0.f */
8048#define dlaed0 FORTRAN_WRAPPER(dlaed0)
8049extern void dlaed0(
8050 const ptrdiff_t *icompq,
8051 const ptrdiff_t *qsiz,
8052 const ptrdiff_t *n,
8053 double *d,
8054 const double *e,
8055 double *q,
8056 const ptrdiff_t *ldq,
8057 double *qstore,
8058 const ptrdiff_t *ldqs,
8059 double *work,
8060 ptrdiff_t *iwork,
8061 ptrdiff_t *info
8062);
8063
8064/* Source: dlaed1.f */
8065#define dlaed1 FORTRAN_WRAPPER(dlaed1)
8066extern void dlaed1(
8067 const ptrdiff_t *n,
8068 double *d,
8069 double *q,
8070 const ptrdiff_t *ldq,
8071 ptrdiff_t *indxq,
8072 const double *rho,
8073 const ptrdiff_t *cutpnt,
8074 double *work,
8075 ptrdiff_t *iwork,
8076 ptrdiff_t *info
8077);
8078
8079/* Source: dlaed2.f */
8080#define dlaed2 FORTRAN_WRAPPER(dlaed2)
8081extern void dlaed2(
8082 ptrdiff_t *k,
8083 const ptrdiff_t *n,
8084 const ptrdiff_t *n1,
8085 double *d,
8086 double *q,
8087 const ptrdiff_t *ldq,
8088 ptrdiff_t *indxq,
8089 double *rho,
8090 const double *z,
8091 double *dlamda,
8092 double *w,
8093 double *q2,
8094 ptrdiff_t *indx,
8095 ptrdiff_t *indxc,
8096 ptrdiff_t *indxp,
8097 ptrdiff_t *coltyp,
8098 ptrdiff_t *info
8099);
8100
8101/* Source: dlaed3.f */
8102#define dlaed3 FORTRAN_WRAPPER(dlaed3)
8103extern void dlaed3(
8104 const ptrdiff_t *k,
8105 const ptrdiff_t *n,
8106 const ptrdiff_t *n1,
8107 double *d,
8108 double *q,
8109 const ptrdiff_t *ldq,
8110 const double *rho,
8111 double *dlamda,
8112 const double *q2,
8113 const ptrdiff_t *indx,
8114 const ptrdiff_t *ctot,
8115 double *w,
8116 double *s,
8117 ptrdiff_t *info
8118);
8119
8120/* Source: dlaed4.f */
8121#define dlaed4 FORTRAN_WRAPPER(dlaed4)
8122extern void dlaed4(
8123 const ptrdiff_t *n,
8124 const ptrdiff_t *i,
8125 const double *d,
8126 const double *z,
8127 double *delta,
8128 const double *rho,
8129 double *dlam,
8130 ptrdiff_t *info
8131);
8132
8133/* Source: dlaed5.f */
8134#define dlaed5 FORTRAN_WRAPPER(dlaed5)
8135extern void dlaed5(
8136 const ptrdiff_t *i,
8137 const double *d,
8138 const double *z,
8139 double *delta,
8140 const double *rho,
8141 double *dlam
8142);
8143
8144/* Source: dlaed6.f */
8145#define dlaed6 FORTRAN_WRAPPER(dlaed6)
8146extern void dlaed6(
8147 const ptrdiff_t *kniter,
8148 const ptrdiff_t *orgati,
8149 const double *rho,
8150 const double *d,
8151 const double *z,
8152 const double *finit,
8153 double *tau,
8154 ptrdiff_t *info
8155);
8156
8157/* Source: dlaed7.f */
8158#define dlaed7 FORTRAN_WRAPPER(dlaed7)
8159extern void dlaed7(
8160 const ptrdiff_t *icompq,
8161 const ptrdiff_t *n,
8162 const ptrdiff_t *qsiz,
8163 const ptrdiff_t *tlvls,
8164 const ptrdiff_t *curlvl,
8165 const ptrdiff_t *curpbm,
8166 double *d,
8167 double *q,
8168 const ptrdiff_t *ldq,
8169 ptrdiff_t *indxq,
8170 const double *rho,
8171 const ptrdiff_t *cutpnt,
8172 double *qstore,
8173 ptrdiff_t *qptr,
8174 const ptrdiff_t *prmptr,
8175 const ptrdiff_t *perm,
8176 const ptrdiff_t *givptr,
8177 const ptrdiff_t *givcol,
8178 const double *givnum,
8179 double *work,
8180 ptrdiff_t *iwork,
8181 ptrdiff_t *info
8182);
8183
8184/* Source: dlaed8.f */
8185#define dlaed8 FORTRAN_WRAPPER(dlaed8)
8186extern void dlaed8(
8187 const ptrdiff_t *icompq,
8188 ptrdiff_t *k,
8189 const ptrdiff_t *n,
8190 const ptrdiff_t *qsiz,
8191 double *d,
8192 double *q,
8193 const ptrdiff_t *ldq,
8194 const ptrdiff_t *indxq,
8195 double *rho,
8196 const ptrdiff_t *cutpnt,
8197 const double *z,
8198 double *dlamda,
8199 double *q2,
8200 const ptrdiff_t *ldq2,
8201 double *w,
8202 ptrdiff_t *perm,
8203 ptrdiff_t *givptr,
8204 ptrdiff_t *givcol,
8205 double *givnum,
8206 ptrdiff_t *indxp,
8207 ptrdiff_t *indx,
8208 ptrdiff_t *info
8209);
8210
8211/* Source: dlaed9.f */
8212#define dlaed9 FORTRAN_WRAPPER(dlaed9)
8213extern void dlaed9(
8214 const ptrdiff_t *k,
8215 const ptrdiff_t *kstart,
8216 const ptrdiff_t *kstop,
8217 const ptrdiff_t *n,
8218 double *d,
8219 double *q,
8220 const ptrdiff_t *ldq,
8221 const double *rho,
8222 const double *dlamda,
8223 const double *w,
8224 double *s,
8225 const ptrdiff_t *lds,
8226 ptrdiff_t *info
8227);
8228
8229/* Source: dlaeda.f */
8230#define dlaeda FORTRAN_WRAPPER(dlaeda)
8231extern void dlaeda(
8232 const ptrdiff_t *n,
8233 const ptrdiff_t *tlvls,
8234 const ptrdiff_t *curlvl,
8235 const ptrdiff_t *curpbm,
8236 const ptrdiff_t *prmptr,
8237 const ptrdiff_t *perm,
8238 const ptrdiff_t *givptr,
8239 const ptrdiff_t *givcol,
8240 const double *givnum,
8241 const double *q,
8242 const ptrdiff_t *qptr,
8243 double *z,
8244 double *ztemp,
8245 ptrdiff_t *info
8246);
8247
8248/* Source: dlaein.f */
8249#define dlaein FORTRAN_WRAPPER(dlaein)
8250extern void dlaein(
8251 const ptrdiff_t *rightv,
8252 const ptrdiff_t *noinit,
8253 const ptrdiff_t *n,
8254 const double *h,
8255 const ptrdiff_t *ldh,
8256 const double *wr,
8257 const double *wi,
8258 double *vr,
8259 double *vi,
8260 double *b,
8261 const ptrdiff_t *ldb,
8262 double *work,
8263 const double *eps3,
8264 const double *smlnum,
8265 const double *bignum,
8266 ptrdiff_t *info
8267);
8268
8269/* Source: dlaev2.f */
8270#define dlaev2 FORTRAN_WRAPPER(dlaev2)
8271extern void dlaev2(
8272 const double *a,
8273 const double *b,
8274 const double *c,
8275 double *rt1,
8276 double *rt2,
8277 double *cs1,
8278 double *sn1
8279);
8280
8281/* Source: dlaexc.f */
8282#define dlaexc FORTRAN_WRAPPER(dlaexc)
8283extern void dlaexc(
8284 const ptrdiff_t *wantq,
8285 const ptrdiff_t *n,
8286 double *t,
8287 const ptrdiff_t *ldt,
8288 double *q,
8289 const ptrdiff_t *ldq,
8290 const ptrdiff_t *j1_,
8291 const ptrdiff_t *n1,
8292 const ptrdiff_t *n2,
8293 double *work,
8294 ptrdiff_t *info
8295);
8296
8297/* Source: dlag2.f */
8298#define dlag2 FORTRAN_WRAPPER(dlag2)
8299extern void dlag2(
8300 const double *a,
8301 const ptrdiff_t *lda,
8302 const double *b,
8303 const ptrdiff_t *ldb,
8304 const double *safmin,
8305 double *scale1,
8306 double *scale2,
8307 double *wr1,
8308 double *wr2,
8309 double *wi
8310);
8311
8312/* Source: dlag2s.f */
8313#define dlag2s FORTRAN_WRAPPER(dlag2s)
8314extern void dlag2s(
8315 const ptrdiff_t *m,
8316 const ptrdiff_t *n,
8317 const double *a,
8318 const ptrdiff_t *lda,
8319 float *sa,
8320 const ptrdiff_t *ldsa,
8321 ptrdiff_t *info
8322);
8323
8324/* Source: dlags2.f */
8325#define dlags2 FORTRAN_WRAPPER(dlags2)
8326extern void dlags2(
8327 const ptrdiff_t *upper,
8328 const double *a1,
8329 const double *a2,
8330 const double *a3,
8331 const double *b1,
8332 const double *b2,
8333 const double *b3,
8334 double *csu,
8335 double *snu,
8336 double *csv,
8337 double *snv,
8338 double *csq,
8339 double *snq
8340);
8341
8342/* Source: dlagtf.f */
8343#define dlagtf FORTRAN_WRAPPER(dlagtf)
8344extern void dlagtf(
8345 const ptrdiff_t *n,
8346 double *a,
8347 const double *lambda,
8348 double *b,
8349 double *c,
8350 const double *tol,
8351 double *d,
8352 ptrdiff_t *in,
8353 ptrdiff_t *info
8354);
8355
8356/* Source: dlagtm.f */
8357#define dlagtm FORTRAN_WRAPPER(dlagtm)
8358extern void dlagtm(
8359 const char *trans,
8360 const ptrdiff_t *n,
8361 const ptrdiff_t *nrhs,
8362 const double *alpha,
8363 const double *dl,
8364 const double *d,
8365 const double *du,
8366 const double *x,
8367 const ptrdiff_t *ldx,
8368 const double *beta,
8369 double *b,
8370 const ptrdiff_t *ldb
8371);
8372
8373/* Source: dlagts.f */
8374#define dlagts FORTRAN_WRAPPER(dlagts)
8375extern void dlagts(
8376 const ptrdiff_t *job,
8377 const ptrdiff_t *n,
8378 const double *a,
8379 const double *b,
8380 const double *c,
8381 const double *d,
8382 const ptrdiff_t *in,
8383 double *y,
8384 double *tol,
8385 ptrdiff_t *info
8386);
8387
8388/* Source: dlagv2.f */
8389#define dlagv2 FORTRAN_WRAPPER(dlagv2)
8390extern void dlagv2(
8391 double *a,
8392 const ptrdiff_t *lda,
8393 double *b,
8394 const ptrdiff_t *ldb,
8395 double *alphar,
8396 double *alphai,
8397 double *beta,
8398 double *csl,
8399 double *snl,
8400 double *csr,
8401 double *snr
8402);
8403
8404/* Source: dlahqr.f */
8405#define dlahqr FORTRAN_WRAPPER(dlahqr)
8406extern void dlahqr(
8407 const ptrdiff_t *wantt,
8408 const ptrdiff_t *wantz,
8409 const ptrdiff_t *n,
8410 const ptrdiff_t *ilo,
8411 const ptrdiff_t *ihi,
8412 double *h,
8413 const ptrdiff_t *ldh,
8414 double *wr,
8415 double *wi,
8416 const ptrdiff_t *iloz,
8417 const ptrdiff_t *ihiz,
8418 double *z,
8419 const ptrdiff_t *ldz,
8420 ptrdiff_t *info
8421);
8422
8423/* Source: dlahr2.f */
8424#define dlahr2 FORTRAN_WRAPPER(dlahr2)
8425extern void dlahr2(
8426 const ptrdiff_t *n,
8427 const ptrdiff_t *k,
8428 const ptrdiff_t *nb,
8429 double *a,
8430 const ptrdiff_t *lda,
8431 double *tau,
8432 double *t,
8433 const ptrdiff_t *ldt,
8434 double *y,
8435 const ptrdiff_t *ldy
8436);
8437
8438/* Source: dlahrd.f */
8439#define dlahrd FORTRAN_WRAPPER(dlahrd)
8440extern void dlahrd(
8441 const ptrdiff_t *n,
8442 const ptrdiff_t *k,
8443 const ptrdiff_t *nb,
8444 double *a,
8445 const ptrdiff_t *lda,
8446 double *tau,
8447 double *t,
8448 const ptrdiff_t *ldt,
8449 double *y,
8450 const ptrdiff_t *ldy
8451);
8452
8453/* Source: dlaic1.f */
8454#define dlaic1 FORTRAN_WRAPPER(dlaic1)
8455extern void dlaic1(
8456 const ptrdiff_t *job,
8457 const ptrdiff_t *j,
8458 const double *x,
8459 const double *sest,
8460 const double *w,
8461 const double *gamma_,
8462 double *sestpr,
8463 double *s,
8464 double *c
8465);
8466
8467/* Source: dlaisnan.f */
8468#define dlaisnan FORTRAN_WRAPPER(dlaisnan)
8469extern ptrdiff_t dlaisnan(
8470 const double *din1,
8471 const double *din2
8472);
8473
8474/* Source: dlaln2.f */
8475#define dlaln2 FORTRAN_WRAPPER(dlaln2)
8476extern void dlaln2(
8477 const ptrdiff_t *ltrans,
8478 const ptrdiff_t *na,
8479 const ptrdiff_t *nw,
8480 const double *smin,
8481 const double *ca,
8482 const double *a,
8483 const ptrdiff_t *lda,
8484 const double *d1,
8485 const double *d2,
8486 const double *b,
8487 const ptrdiff_t *ldb,
8488 const double *wr,
8489 const double *wi,
8490 double *x,
8491 const ptrdiff_t *ldx,
8492 double *scale,
8493 double *xnorm,
8494 ptrdiff_t *info
8495);
8496
8497/* Source: dlals0.f */
8498#define dlals0 FORTRAN_WRAPPER(dlals0)
8499extern void dlals0(
8500 const ptrdiff_t *icompq,
8501 const ptrdiff_t *nl,
8502 const ptrdiff_t *nr,
8503 const ptrdiff_t *sqre,
8504 const ptrdiff_t *nrhs,
8505 double *b,
8506 const ptrdiff_t *ldb,
8507 double *bx,
8508 const ptrdiff_t *ldbx,
8509 const ptrdiff_t *perm,
8510 const ptrdiff_t *givptr,
8511 const ptrdiff_t *givcol,
8512 const ptrdiff_t *ldgcol,
8513 const double *givnum,
8514 const ptrdiff_t *ldgnum,
8515 const double *poles,
8516 const double *difl,
8517 const double *difr,
8518 const double *z,
8519 const ptrdiff_t *k,
8520 const double *c,
8521 const double *s,
8522 double *work,
8523 ptrdiff_t *info
8524);
8525
8526/* Source: dlalsa.f */
8527#define dlalsa FORTRAN_WRAPPER(dlalsa)
8528extern void dlalsa(
8529 const ptrdiff_t *icompq,
8530 const ptrdiff_t *smlsiz,
8531 const ptrdiff_t *n,
8532 const ptrdiff_t *nrhs,
8533 double *b,
8534 const ptrdiff_t *ldb,
8535 double *bx,
8536 const ptrdiff_t *ldbx,
8537 const double *u,
8538 const ptrdiff_t *ldu,
8539 const double *vt,
8540 const ptrdiff_t *k,
8541 const double *difl,
8542 const double *difr,
8543 const double *z,
8544 const double *poles,
8545 const ptrdiff_t *givptr,
8546 const ptrdiff_t *givcol,
8547 const ptrdiff_t *ldgcol,
8548 const ptrdiff_t *perm,
8549 const double *givnum,
8550 const double *c,
8551 const double *s,
8552 double *work,
8553 ptrdiff_t *iwork,
8554 ptrdiff_t *info
8555);
8556
8557/* Source: dlalsd.f */
8558#define dlalsd FORTRAN_WRAPPER(dlalsd)
8559extern void dlalsd(
8560 const char *uplo,
8561 const ptrdiff_t *smlsiz,
8562 const ptrdiff_t *n,
8563 const ptrdiff_t *nrhs,
8564 double *d,
8565 double *e,
8566 double *b,
8567 const ptrdiff_t *ldb,
8568 const double *rcond,
8569 ptrdiff_t *rank,
8570 double *work,
8571 ptrdiff_t *iwork,
8572 ptrdiff_t *info
8573);
8574
8575/* Source: dlamrg.f */
8576#define dlamrg FORTRAN_WRAPPER(dlamrg)
8577extern void dlamrg(
8578 const ptrdiff_t *n1,
8579 const ptrdiff_t *n2,
8580 const double *a,
8581 const ptrdiff_t *dtrd1,
8582 const ptrdiff_t *dtrd2,
8583 ptrdiff_t *index
8584);
8585
8586/* Source: dlaneg.f */
8587#define dlaneg FORTRAN_WRAPPER(dlaneg)
8588extern ptrdiff_t dlaneg(
8589 const ptrdiff_t *n,
8590 const double *d,
8591 const double *lld,
8592 const double *sigma,
8593 const double *pivmin,
8594 const ptrdiff_t *r
8595);
8596
8597/* Source: dlangb.f */
8598#define dlangb FORTRAN_WRAPPER(dlangb)
8599extern double dlangb(
8600 const char *norm,
8601 const ptrdiff_t *n,
8602 const ptrdiff_t *kl,
8603 const ptrdiff_t *ku,
8604 const double *ab,
8605 const ptrdiff_t *ldab,
8606 double *work
8607);
8608
8609/* Source: dlange.f */
8610#define dlange FORTRAN_WRAPPER(dlange)
8611extern double dlange(
8612 const char *norm,
8613 const ptrdiff_t *m,
8614 const ptrdiff_t *n,
8615 const double *a,
8616 const ptrdiff_t *lda,
8617 double *work
8618);
8619
8620/* Source: dlangt.f */
8621#define dlangt FORTRAN_WRAPPER(dlangt)
8622extern double dlangt(
8623 const char *norm,
8624 const ptrdiff_t *n,
8625 const double *dl,
8626 const double *d,
8627 const double *du
8628);
8629
8630/* Source: dlanhs.f */
8631#define dlanhs FORTRAN_WRAPPER(dlanhs)
8632extern double dlanhs(
8633 const char *norm,
8634 const ptrdiff_t *n,
8635 const double *a,
8636 const ptrdiff_t *lda,
8637 double *work
8638);
8639
8640/* Source: dlansb.f */
8641#define dlansb FORTRAN_WRAPPER(dlansb)
8642extern double dlansb(
8643 const char *norm,
8644 const char *uplo,
8645 const ptrdiff_t *n,
8646 const ptrdiff_t *k,
8647 const double *ab,
8648 const ptrdiff_t *ldab,
8649 double *work
8650);
8651
8652/* Source: dlansf.f */
8653#define dlansf FORTRAN_WRAPPER(dlansf)
8654extern double dlansf(
8655 const char *norm,
8656 const char *transr,
8657 const char *uplo,
8658 const ptrdiff_t *n,
8659 const double *a,
8660 double *work
8661);
8662
8663/* Source: dlansp.f */
8664#define dlansp FORTRAN_WRAPPER(dlansp)
8665extern double dlansp(
8666 const char *norm,
8667 const char *uplo,
8668 const ptrdiff_t *n,
8669 const double *ap,
8670 double *work
8671);
8672
8673/* Source: dlanst.f */
8674#define dlanst FORTRAN_WRAPPER(dlanst)
8675extern double dlanst(
8676 const char *norm,
8677 const ptrdiff_t *n,
8678 const double *d,
8679 const double *e
8680);
8681
8682/* Source: dlansy.f */
8683#define dlansy FORTRAN_WRAPPER(dlansy)
8684extern double dlansy(
8685 const char *norm,
8686 const char *uplo,
8687 const ptrdiff_t *n,
8688 const double *a,
8689 const ptrdiff_t *lda,
8690 double *work
8691);
8692
8693/* Source: dlantb.f */
8694#define dlantb FORTRAN_WRAPPER(dlantb)
8695extern double dlantb(
8696 const char *norm,
8697 const char *uplo,
8698 const char *diag,
8699 const ptrdiff_t *n,
8700 const ptrdiff_t *k,
8701 const double *ab,
8702 const ptrdiff_t *ldab,
8703 double *work
8704);
8705
8706/* Source: dlantp.f */
8707#define dlantp FORTRAN_WRAPPER(dlantp)
8708extern double dlantp(
8709 const char *norm,
8710 const char *uplo,
8711 const char *diag,
8712 const ptrdiff_t *n,
8713 const double *ap,
8714 double *work
8715);
8716
8717/* Source: dlantr.f */
8718#define dlantr FORTRAN_WRAPPER(dlantr)
8719extern double dlantr(
8720 const char *norm,
8721 const char *uplo,
8722 const char *diag,
8723 const ptrdiff_t *m,
8724 const ptrdiff_t *n,
8725 const double *a,
8726 const ptrdiff_t *lda,
8727 double *work
8728);
8729
8730/* Source: dlanv2.f */
8731#define dlanv2 FORTRAN_WRAPPER(dlanv2)
8732extern void dlanv2(
8733 double *a,
8734 double *b,
8735 double *c,
8736 double *d,
8737 double *rt1r,
8738 double *rt1i,
8739 double *rt2r,
8740 double *rt2i,
8741 double *cs,
8742 double *sn
8743);
8744
8745/* Source: dlapll.f */
8746#define dlapll FORTRAN_WRAPPER(dlapll)
8747extern void dlapll(
8748 const ptrdiff_t *n,
8749 double *x,
8750 const ptrdiff_t *incx,
8751 double *y,
8752 const ptrdiff_t *incy,
8753 double *ssmin
8754);
8755
8756/* Source: dlapmr.f */
8757#define dlapmr FORTRAN_WRAPPER(dlapmr)
8758extern void dlapmr(
8759 const ptrdiff_t *forwrd,
8760 const ptrdiff_t *m,
8761 const ptrdiff_t *n,
8762 double *x,
8763 const ptrdiff_t *ldx,
8764 ptrdiff_t *k
8765);
8766
8767/* Source: dlapmt.f */
8768#define dlapmt FORTRAN_WRAPPER(dlapmt)
8769extern void dlapmt(
8770 const ptrdiff_t *forwrd,
8771 const ptrdiff_t *m,
8772 const ptrdiff_t *n,
8773 double *x,
8774 const ptrdiff_t *ldx,
8775 ptrdiff_t *k
8776);
8777
8778/* Source: dlapy2.f */
8779#define dlapy2 FORTRAN_WRAPPER(dlapy2)
8780extern double dlapy2(
8781 const double *x,
8782 const double *y
8783);
8784
8785/* Source: dlapy3.f */
8786#define dlapy3 FORTRAN_WRAPPER(dlapy3)
8787extern double dlapy3(
8788 const double *x,
8789 const double *y,
8790 const double *z
8791);
8792
8793/* Source: dlaqgb.f */
8794#define dlaqgb FORTRAN_WRAPPER(dlaqgb)
8795extern void dlaqgb(
8796 const ptrdiff_t *m,
8797 const ptrdiff_t *n,
8798 const ptrdiff_t *kl,
8799 const ptrdiff_t *ku,
8800 double *ab,
8801 const ptrdiff_t *ldab,
8802 const double *r,
8803 const double *c,
8804 const double *rowcnd,
8805 const double *colcnd,
8806 const double *amax,
8807 char *equed
8808);
8809
8810/* Source: dlaqge.f */
8811#define dlaqge FORTRAN_WRAPPER(dlaqge)
8812extern void dlaqge(
8813 const ptrdiff_t *m,
8814 const ptrdiff_t *n,
8815 double *a,
8816 const ptrdiff_t *lda,
8817 const double *r,
8818 const double *c,
8819 const double *rowcnd,
8820 const double *colcnd,
8821 const double *amax,
8822 char *equed
8823);
8824
8825/* Source: dlaqp2.f */
8826#define dlaqp2 FORTRAN_WRAPPER(dlaqp2)
8827extern void dlaqp2(
8828 const ptrdiff_t *m,
8829 const ptrdiff_t *n,
8830 const ptrdiff_t *offset,
8831 double *a,
8832 const ptrdiff_t *lda,
8833 ptrdiff_t *jpvt,
8834 double *tau,
8835 double *vn1,
8836 double *vn2,
8837 double *work
8838);
8839
8840/* Source: dlaqps.f */
8841#define dlaqps FORTRAN_WRAPPER(dlaqps)
8842extern void dlaqps(
8843 const ptrdiff_t *m,
8844 const ptrdiff_t *n,
8845 const ptrdiff_t *offset,
8846 const ptrdiff_t *nb,
8847 ptrdiff_t *kb,
8848 double *a,
8849 const ptrdiff_t *lda,
8850 ptrdiff_t *jpvt,
8851 double *tau,
8852 double *vn1,
8853 double *vn2,
8854 double *auxv,
8855 double *f,
8856 const ptrdiff_t *ldf
8857);
8858
8859/* Source: dlaqr0.f */
8860#define dlaqr0 FORTRAN_WRAPPER(dlaqr0)
8861extern void dlaqr0(
8862 const ptrdiff_t *wantt,
8863 const ptrdiff_t *wantz,
8864 const ptrdiff_t *n,
8865 const ptrdiff_t *ilo,
8866 const ptrdiff_t *ihi,
8867 double *h,
8868 const ptrdiff_t *ldh,
8869 double *wr,
8870 double *wi,
8871 const ptrdiff_t *iloz,
8872 const ptrdiff_t *ihiz,
8873 double *z,
8874 const ptrdiff_t *ldz,
8875 double *work,
8876 const ptrdiff_t *lwork,
8877 ptrdiff_t *info
8878);
8879
8880/* Source: dlaqr1.f */
8881#define dlaqr1 FORTRAN_WRAPPER(dlaqr1)
8882extern void dlaqr1(
8883 const ptrdiff_t *n,
8884 const double *h,
8885 const ptrdiff_t *ldh,
8886 const double *sr1,
8887 double *si1,
8888 double *sr2,
8889 double *si2,
8890 double *v
8891);
8892
8893/* Source: dlaqr2.f */
8894#define dlaqr2 FORTRAN_WRAPPER(dlaqr2)
8895extern void dlaqr2(
8896 const ptrdiff_t *wantt,
8897 const ptrdiff_t *wantz,
8898 const ptrdiff_t *n,
8899 const ptrdiff_t *ktop,
8900 const ptrdiff_t *kbot,
8901 const ptrdiff_t *nw,
8902 double *h,
8903 const ptrdiff_t *ldh,
8904 const ptrdiff_t *iloz,
8905 const ptrdiff_t *ihiz,
8906 double *z,
8907 const ptrdiff_t *ldz,
8908 ptrdiff_t *ns,
8909 ptrdiff_t *nd,
8910 double *sr,
8911 double *si,
8912 double *v,
8913 const ptrdiff_t *ldv,
8914 const ptrdiff_t *nh,
8915 double *t,
8916 const ptrdiff_t *ldt,
8917 const ptrdiff_t *nv,
8918 double *wv,
8919 const ptrdiff_t *ldwv,
8920 double *work,
8921 const ptrdiff_t *lwork
8922);
8923
8924/* Source: dlaqr3.f */
8925#define dlaqr3 FORTRAN_WRAPPER(dlaqr3)
8926extern void dlaqr3(
8927 const ptrdiff_t *wantt,
8928 const ptrdiff_t *wantz,
8929 const ptrdiff_t *n,
8930 const ptrdiff_t *ktop,
8931 const ptrdiff_t *kbot,
8932 const ptrdiff_t *nw,
8933 double *h,
8934 const ptrdiff_t *ldh,
8935 const ptrdiff_t *iloz,
8936 const ptrdiff_t *ihiz,
8937 double *z,
8938 const ptrdiff_t *ldz,
8939 ptrdiff_t *ns,
8940 ptrdiff_t *nd,
8941 double *sr,
8942 double *si,
8943 double *v,
8944 const ptrdiff_t *ldv,
8945 const ptrdiff_t *nh,
8946 double *t,
8947 const ptrdiff_t *ldt,
8948 const ptrdiff_t *nv,
8949 double *wv,
8950 const ptrdiff_t *ldwv,
8951 double *work,
8952 const ptrdiff_t *lwork
8953);
8954
8955/* Source: dlaqr4.f */
8956#define dlaqr4 FORTRAN_WRAPPER(dlaqr4)
8957extern void dlaqr4(
8958 const ptrdiff_t *wantt,
8959 const ptrdiff_t *wantz,
8960 const ptrdiff_t *n,
8961 const ptrdiff_t *ilo,
8962 const ptrdiff_t *ihi,
8963 double *h,
8964 const ptrdiff_t *ldh,
8965 double *wr,
8966 double *wi,
8967 const ptrdiff_t *iloz,
8968 const ptrdiff_t *ihiz,
8969 double *z,
8970 const ptrdiff_t *ldz,
8971 double *work,
8972 const ptrdiff_t *lwork,
8973 ptrdiff_t *info
8974);
8975
8976/* Source: dlaqr5.f */
8977#define dlaqr5 FORTRAN_WRAPPER(dlaqr5)
8978extern void dlaqr5(
8979 const ptrdiff_t *wantt,
8980 const ptrdiff_t *wantz,
8981 const ptrdiff_t *kacc22,
8982 const ptrdiff_t *n,
8983 const ptrdiff_t *ktop,
8984 const ptrdiff_t *kbot,
8985 const ptrdiff_t *nshfts,
8986 double *sr,
8987 double *si,
8988 double *h,
8989 const ptrdiff_t *ldh,
8990 const ptrdiff_t *iloz,
8991 const ptrdiff_t *ihiz,
8992 double *z,
8993 const ptrdiff_t *ldz,
8994 double *v,
8995 const ptrdiff_t *ldv,
8996 double *u,
8997 const ptrdiff_t *ldu,
8998 const ptrdiff_t *nv,
8999 double *wv,
9000 const ptrdiff_t *ldwv,
9001 const ptrdiff_t *nh,
9002 double *wh,
9003 const ptrdiff_t *ldwh
9004);
9005
9006/* Source: dlaqsb.f */
9007#define dlaqsb FORTRAN_WRAPPER(dlaqsb)
9008extern void dlaqsb(
9009 const char *uplo,
9010 const ptrdiff_t *n,
9011 const ptrdiff_t *kd,
9012 double *ab,
9013 const ptrdiff_t *ldab,
9014 const double *s,
9015 const double *scond,
9016 const double *amax,
9017 char *equed
9018);
9019
9020/* Source: dlaqsp.f */
9021#define dlaqsp FORTRAN_WRAPPER(dlaqsp)
9022extern void dlaqsp(
9023 const char *uplo,
9024 const ptrdiff_t *n,
9025 double *ap,
9026 const double *s,
9027 const double *scond,
9028 const double *amax,
9029 char *equed
9030);
9031
9032/* Source: dlaqsy.f */
9033#define dlaqsy FORTRAN_WRAPPER(dlaqsy)
9034extern void dlaqsy(
9035 const char *uplo,
9036 const ptrdiff_t *n,
9037 double *a,
9038 const ptrdiff_t *lda,
9039 const double *s,
9040 const double *scond,
9041 const double *amax,
9042 char *equed
9043);
9044
9045/* Source: dlaqtr.f */
9046#define dlaqtr FORTRAN_WRAPPER(dlaqtr)
9047extern void dlaqtr(
9048 const ptrdiff_t *ltran,
9049 const ptrdiff_t *lreal,
9050 const ptrdiff_t *n,
9051 const double *t,
9052 const ptrdiff_t *ldt,
9053 const double *b,
9054 const double *w,
9055 double *scale,
9056 double *x,
9057 double *work,
9058 ptrdiff_t *info
9059);
9060
9061/* Source: dlar1v.f */
9062#define dlar1v FORTRAN_WRAPPER(dlar1v)
9063extern void dlar1v(
9064 const ptrdiff_t *n,
9065 const ptrdiff_t *b1,
9066 const ptrdiff_t *bn,
9067 const double *lambda,
9068 const double *d,
9069 const double *l,
9070 const double *ld,
9071 const double *lld,
9072 const double *pivmin,
9073 const double *gaptol,
9074 double *z,
9075 const ptrdiff_t *wantnc,
9076 ptrdiff_t *negcnt,
9077 double *ztz,
9078 double *mingma,
9079 ptrdiff_t *r,
9080 ptrdiff_t *isuppz,
9081 double *nrminv,
9082 double *resid,
9083 double *rqcorr,
9084 double *work
9085);
9086
9087/* Source: dlar2v.f */
9088#define dlar2v FORTRAN_WRAPPER(dlar2v)
9089extern void dlar2v(
9090 const ptrdiff_t *n,
9091 double *x,
9092 double *y,
9093 double *z,
9094 const ptrdiff_t *incx,
9095 const double *c,
9096 const double *s,
9097 const ptrdiff_t *incc
9098);
9099
9100/* Source: dlarf.f */
9101#define dlarf FORTRAN_WRAPPER(dlarf)
9102extern void dlarf(
9103 const char *side,
9104 const ptrdiff_t *m,
9105 const ptrdiff_t *n,
9106 const double *v,
9107 const ptrdiff_t *incv,
9108 const double *tau,
9109 double *c,
9110 const ptrdiff_t *ldc,
9111 double *work
9112);
9113
9114/* Source: dlarfb.f */
9115#define dlarfb FORTRAN_WRAPPER(dlarfb)
9116extern void dlarfb(
9117 const char *side,
9118 const char *trans,
9119 const char *direct,
9120 const char *storev,
9121 const ptrdiff_t *m,
9122 const ptrdiff_t *n,
9123 const ptrdiff_t *k,
9124 const double *v,
9125 const ptrdiff_t *ldv,
9126 const double *t,
9127 const ptrdiff_t *ldt,
9128 double *c,
9129 const ptrdiff_t *ldc,
9130 double *work,
9131 const ptrdiff_t *ldwork
9132);
9133
9134/* Source: dlarfg.f */
9135#define dlarfg FORTRAN_WRAPPER(dlarfg)
9136extern void dlarfg(
9137 const ptrdiff_t *n,
9138 double *alpha,
9139 double *x,
9140 const ptrdiff_t *incx,
9141 double *tau
9142);
9143
9144/* Source: dlarfgp.f */
9145#define dlarfgp FORTRAN_WRAPPER(dlarfgp)
9146extern void dlarfgp(
9147 const ptrdiff_t *n,
9148 double *alpha,
9149 double *x,
9150 const ptrdiff_t *incx,
9151 double *tau
9152);
9153
9154/* Source: dlarft.f */
9155#define dlarft FORTRAN_WRAPPER(dlarft)
9156extern void dlarft(
9157 const char *direct,
9158 const char *storev,
9159 const ptrdiff_t *n,
9160 const ptrdiff_t *k,
9161 double *v,
9162 const ptrdiff_t *ldv,
9163 const double *tau,
9164 double *t,
9165 const ptrdiff_t *ldt
9166);
9167
9168/* Source: dlarfx.f */
9169#define dlarfx FORTRAN_WRAPPER(dlarfx)
9170extern void dlarfx(
9171 const char *side,
9172 const ptrdiff_t *m,
9173 const ptrdiff_t *n,
9174 const double *v,
9175 const double *tau,
9176 double *c,
9177 const ptrdiff_t *ldc,
9178 double *work
9179);
9180
9181/* Source: dlargv.f */
9182#define dlargv FORTRAN_WRAPPER(dlargv)
9183extern void dlargv(
9184 const ptrdiff_t *n,
9185 double *x,
9186 const ptrdiff_t *incx,
9187 double *y,
9188 const ptrdiff_t *incy,
9189 double *c,
9190 const ptrdiff_t *incc
9191);
9192
9193/* Source: dlarnv.f */
9194#define dlarnv FORTRAN_WRAPPER(dlarnv)
9195extern void dlarnv(
9196 const ptrdiff_t *idist,
9197 ptrdiff_t *iseed,
9198 const ptrdiff_t *n,
9199 double *x
9200);
9201
9202/* Source: dlarra.f */
9203#define dlarra FORTRAN_WRAPPER(dlarra)
9204extern void dlarra(
9205 const ptrdiff_t *n,
9206 const double *d,
9207 double *e,
9208 double *e2,
9209 const double *spltol,
9210 const double *tnrm,
9211 ptrdiff_t *nsplit,
9212 ptrdiff_t *isplit,
9213 ptrdiff_t *info
9214);
9215
9216/* Source: dlarrb.f */
9217#define dlarrb FORTRAN_WRAPPER(dlarrb)
9218extern void dlarrb(
9219 const ptrdiff_t *n,
9220 const double *d,
9221 const double *lld,
9222 const ptrdiff_t *ifirst,
9223 const ptrdiff_t *ilast,
9224 const double *rtol1,
9225 const double *rtol2,
9226 const ptrdiff_t *offset,
9227 double *w,
9228 double *wgap,
9229 double *werr,
9230 double *work,
9231 ptrdiff_t *iwork,
9232 const double *pivmin,
9233 const double *spdiam,
9234 const ptrdiff_t *twist,
9235 ptrdiff_t *info
9236);
9237
9238/* Source: dlarrc.f */
9239#define dlarrc FORTRAN_WRAPPER(dlarrc)
9240extern void dlarrc(
9241 const char *jobt,
9242 const ptrdiff_t *n,
9243 const double *vl,
9244 const double *vu,
9245 const double *d,
9246 const double *e,
9247 const double *pivmin,
9248 ptrdiff_t *eigcnt,
9249 ptrdiff_t *lcnt,
9250 ptrdiff_t *rcnt,
9251 ptrdiff_t *info
9252);
9253
9254/* Source: dlarrd.f */
9255#define dlarrd FORTRAN_WRAPPER(dlarrd)
9256extern void dlarrd(
9257 const char *range,
9258 const char *order,
9259 const ptrdiff_t *n,
9260 const double *vl,
9261 const double *vu,
9262 const ptrdiff_t *il,
9263 const ptrdiff_t *iu,
9264 const double *gers,
9265 const double *reltol,
9266 const double *d,
9267 const double *e,
9268 const double *e2,
9269 const double *pivmin,
9270 const ptrdiff_t *nsplit,
9271 const ptrdiff_t *isplit,
9272 ptrdiff_t *m,
9273 double *w,
9274 double *werr,
9275 double *wl,
9276 double *wu,
9277 ptrdiff_t *iblock,
9278 ptrdiff_t *indexw,
9279 double *work,
9280 ptrdiff_t *iwork,
9281 ptrdiff_t *info
9282);
9283
9284/* Source: dlarre.f */
9285#define dlarre FORTRAN_WRAPPER(dlarre)
9286extern void dlarre(
9287 const char *range,
9288 const ptrdiff_t *n,
9289 double *vl,
9290 double *vu,
9291 const ptrdiff_t *il,
9292 const ptrdiff_t *iu,
9293 double *d,
9294 double *e,
9295 double *e2,
9296 const double *rtol1,
9297 const double *rtol2,
9298 const double *spltol,
9299 ptrdiff_t *nsplit,
9300 ptrdiff_t *isplit,
9301 ptrdiff_t *m,
9302 double *w,
9303 double *werr,
9304 double *wgap,
9305 ptrdiff_t *iblock,
9306 ptrdiff_t *indexw,
9307 double *gers,
9308 double *pivmin,
9309 double *work,
9310 ptrdiff_t *iwork,
9311 ptrdiff_t *info
9312);
9313
9314/* Source: dlarrf.f */
9315#define dlarrf FORTRAN_WRAPPER(dlarrf)
9316extern void dlarrf(
9317 const ptrdiff_t *n,
9318 const double *d,
9319 const double *l,
9320 const double *ld,
9321 const ptrdiff_t *clstrt,
9322 const ptrdiff_t *clend,
9323 const double *w,
9324 double *wgap,
9325 const double *werr,
9326 const double *spdiam,
9327 const double *clgapl,
9328 double *clgapr,
9329 const double *pivmin,
9330 double *sigma,
9331 double *dplus,
9332 double *lplus,
9333 double *work,
9334 ptrdiff_t *info
9335);
9336
9337/* Source: dlarrj.f */
9338#define dlarrj FORTRAN_WRAPPER(dlarrj)
9339extern void dlarrj(
9340 const ptrdiff_t *n,
9341 const double *d,
9342 const double *e2,
9343 const ptrdiff_t *ifirst,
9344 const ptrdiff_t *ilast,
9345 const double *rtol,
9346 const ptrdiff_t *offset,
9347 double *w,
9348 double *werr,
9349 double *work,
9350 ptrdiff_t *iwork,
9351 const double *pivmin,
9352 const double *spdiam,
9353 ptrdiff_t *info
9354);
9355
9356/* Source: dlarrk.f */
9357#define dlarrk FORTRAN_WRAPPER(dlarrk)
9358extern void dlarrk(
9359 const ptrdiff_t *n,
9360 const ptrdiff_t *iw,
9361 const double *gl,
9362 const double *gu,
9363 const double *d,
9364 const double *e2,
9365 const double *pivmin,
9366 const double *reltol,
9367 double *w,
9368 double *werr,
9369 ptrdiff_t *info
9370);
9371
9372/* Source: dlarrr.f */
9373#define dlarrr FORTRAN_WRAPPER(dlarrr)
9374extern void dlarrr(
9375 const ptrdiff_t *n,
9376 const double *d,
9377 double *e,
9378 ptrdiff_t *info
9379);
9380
9381/* Source: dlarrv.f */
9382#define dlarrv FORTRAN_WRAPPER(dlarrv)
9383extern void dlarrv(
9384 const ptrdiff_t *n,
9385 const double *vl,
9386 const double *vu,
9387 double *d,
9388 double *l,
9389 double *pivmin,
9390 const ptrdiff_t *isplit,
9391 const ptrdiff_t *m,
9392 const ptrdiff_t *dol,
9393 const ptrdiff_t *dou,
9394 const double *minrgp,
9395 const double *rtol1,
9396 const double *rtol2,
9397 double *w,
9398 double *werr,
9399 double *wgap,
9400 const ptrdiff_t *iblock,
9401 const ptrdiff_t *indexw,
9402 const double *gers,
9403 double *z,
9404 const ptrdiff_t *ldz,
9405 ptrdiff_t *isuppz,
9406 double *work,
9407 ptrdiff_t *iwork,
9408 ptrdiff_t *info
9409);
9410
9411/* Source: dlartg.f */
9412#define dlartg FORTRAN_WRAPPER(dlartg)
9413extern void dlartg(
9414 const double *f,
9415 const double *g,
9416 double *cs,
9417 double *sn,
9418 double *r
9419);
9420
9421/* Source: dlartgp.f */
9422#define dlartgp FORTRAN_WRAPPER(dlartgp)
9423extern void dlartgp(
9424 double *f,
9425 double *g,
9426 double *cs,
9427 double *sn,
9428 double *r
9429);
9430
9431/* Source: dlartgs.f */
9432#define dlartgs FORTRAN_WRAPPER(dlartgs)
9433extern void dlartgs(
9434 const double *x,
9435 const double *y,
9436 const double *sigma,
9437 double *cs,
9438 double *sn
9439);
9440
9441/* Source: dlartv.f */
9442#define dlartv FORTRAN_WRAPPER(dlartv)
9443extern void dlartv(
9444 const ptrdiff_t *n,
9445 double *x,
9446 const ptrdiff_t *incx,
9447 double *y,
9448 const ptrdiff_t *incy,
9449 const double *c,
9450 const double *s,
9451 const ptrdiff_t *incc
9452);
9453
9454/* Source: dlaruv.f */
9455#define dlaruv FORTRAN_WRAPPER(dlaruv)
9456extern void dlaruv(
9457 ptrdiff_t *iseed,
9458 const ptrdiff_t *n,
9459 double *x
9460);
9461
9462/* Source: dlarz.f */
9463#define dlarz FORTRAN_WRAPPER(dlarz)
9464extern void dlarz(
9465 const char *side,
9466 const ptrdiff_t *m,
9467 const ptrdiff_t *n,
9468 const ptrdiff_t *l,
9469 const double *v,
9470 const ptrdiff_t *incv,
9471 const double *tau,
9472 double *c,
9473 const ptrdiff_t *ldc,
9474 double *work
9475);
9476
9477/* Source: dlarzb.f */
9478#define dlarzb FORTRAN_WRAPPER(dlarzb)
9479extern void dlarzb(
9480 const char *side,
9481 const char *trans,
9482 const char *direct,
9483 const char *storev,
9484 const ptrdiff_t *m,
9485 const ptrdiff_t *n,
9486 const ptrdiff_t *k,
9487 const ptrdiff_t *l,
9488 const double *v,
9489 const ptrdiff_t *ldv,
9490 const double *t,
9491 const ptrdiff_t *ldt,
9492 double *c,
9493 const ptrdiff_t *ldc,
9494 double *work,
9495 const ptrdiff_t *ldwork
9496);
9497
9498/* Source: dlarzt.f */
9499#define dlarzt FORTRAN_WRAPPER(dlarzt)
9500extern void dlarzt(
9501 const char *direct,
9502 const char *storev,
9503 const ptrdiff_t *n,
9504 const ptrdiff_t *k,
9505 double *v,
9506 const ptrdiff_t *ldv,
9507 const double *tau,
9508 double *t,
9509 const ptrdiff_t *ldt
9510);
9511
9512/* Source: dlas2.f */
9513#define dlas2 FORTRAN_WRAPPER(dlas2)
9514extern void dlas2(
9515 const double *f,
9516 const double *g,
9517 const double *h,
9518 double *ssmin,
9519 double *ssmax
9520);
9521
9522/* Source: dlascl.f */
9523#define dlascl FORTRAN_WRAPPER(dlascl)
9524extern void dlascl(
9525 const char *type,
9526 const ptrdiff_t *kl,
9527 const ptrdiff_t *ku,
9528 const double *cfrom,
9529 const double *cto,
9530 const ptrdiff_t *m,
9531 const ptrdiff_t *n,
9532 double *a,
9533 const ptrdiff_t *lda,
9534 ptrdiff_t *info
9535);
9536
9537/* Source: dlasd0.f */
9538#define dlasd0 FORTRAN_WRAPPER(dlasd0)
9539extern void dlasd0(
9540 const ptrdiff_t *n,
9541 const ptrdiff_t *sqre,
9542 double *d,
9543 const double *e,
9544 double *u,
9545 const ptrdiff_t *ldu,
9546 double *vt,
9547 const ptrdiff_t *ldvt,
9548 const ptrdiff_t *smlsiz,
9549 ptrdiff_t *iwork,
9550 double *work,
9551 ptrdiff_t *info
9552);
9553
9554/* Source: dlasd1.f */
9555#define dlasd1 FORTRAN_WRAPPER(dlasd1)
9556extern void dlasd1(
9557 const ptrdiff_t *nl,
9558 const ptrdiff_t *nr,
9559 const ptrdiff_t *sqre,
9560 double *d,
9561 double *alpha,
9562 double *beta,
9563 double *u,
9564 const ptrdiff_t *ldu,
9565 double *vt,
9566 const ptrdiff_t *ldvt,
9567 ptrdiff_t *idxq,
9568 ptrdiff_t *iwork,
9569 double *work,
9570 ptrdiff_t *info
9571);
9572
9573/* Source: dlasd2.f */
9574#define dlasd2 FORTRAN_WRAPPER(dlasd2)
9575extern void dlasd2(
9576 const ptrdiff_t *nl,
9577 const ptrdiff_t *nr,
9578 const ptrdiff_t *sqre,
9579 ptrdiff_t *k,
9580 double *d,
9581 double *z,
9582 const double *alpha,
9583 const double *beta,
9584 double *u,
9585 const ptrdiff_t *ldu,
9586 double *vt,
9587 const ptrdiff_t *ldvt,
9588 double *dsigma,
9589 double *u2,
9590 const ptrdiff_t *ldu2,
9591 double *vt2,
9592 const ptrdiff_t *ldvt2,
9593 ptrdiff_t *idxp,
9594 ptrdiff_t *idx,
9595 ptrdiff_t *idxc,
9596 ptrdiff_t *idxq,
9597 ptrdiff_t *coltyp,
9598 ptrdiff_t *info
9599);
9600
9601/* Source: dlasd3.f */
9602#define dlasd3 FORTRAN_WRAPPER(dlasd3)
9603extern void dlasd3(
9604 const ptrdiff_t *nl,
9605 const ptrdiff_t *nr,
9606 const ptrdiff_t *sqre,
9607 const ptrdiff_t *k,
9608 double *d,
9609 double *q,
9610 const ptrdiff_t *ldq,
9611 const double *dsigma,
9612 double *u,
9613 const ptrdiff_t *ldu,
9614 double *u2,
9615 const ptrdiff_t *ldu2,
9616 double *vt,
9617 const ptrdiff_t *ldvt,
9618 double *vt2,
9619 const ptrdiff_t *ldvt2,
9620 const ptrdiff_t *idxc,
9621 const ptrdiff_t *ctot,
9622 const double *z,
9623 ptrdiff_t *info
9624);
9625
9626/* Source: dlasd4.f */
9627#define dlasd4 FORTRAN_WRAPPER(dlasd4)
9628extern void dlasd4(
9629 const ptrdiff_t *n,
9630 const ptrdiff_t *i,
9631 const double *d,
9632 const double *z,
9633 double *delta,
9634 const double *rho,
9635 double *sigma,
9636 double *work,
9637 ptrdiff_t *info
9638);
9639
9640/* Source: dlasd5.f */
9641#define dlasd5 FORTRAN_WRAPPER(dlasd5)
9642extern void dlasd5(
9643 const ptrdiff_t *i,
9644 const double *d,
9645 const double *z,
9646 double *delta,
9647 const double *rho,
9648 double *dsigma,
9649 double *work
9650);
9651
9652/* Source: dlasd6.f */
9653#define dlasd6 FORTRAN_WRAPPER(dlasd6)
9654extern void dlasd6(
9655 const ptrdiff_t *icompq,
9656 const ptrdiff_t *nl,
9657 const ptrdiff_t *nr,
9658 const ptrdiff_t *sqre,
9659 double *d,
9660 double *vf,
9661 double *vl,
9662 double *alpha,
9663 double *beta,
9664 ptrdiff_t *idxq,
9665 ptrdiff_t *perm,
9666 ptrdiff_t *givptr,
9667 ptrdiff_t *givcol,
9668 const ptrdiff_t *ldgcol,
9669 double *givnum,
9670 const ptrdiff_t *ldgnum,
9671 double *poles,
9672 double *difl,
9673 double *difr,
9674 double *z,
9675 ptrdiff_t *k,
9676 double *c,
9677 double *s,
9678 double *work,
9679 ptrdiff_t *iwork,
9680 ptrdiff_t *info
9681);
9682
9683/* Source: dlasd7.f */
9684#define dlasd7 FORTRAN_WRAPPER(dlasd7)
9685extern void dlasd7(
9686 const ptrdiff_t *icompq,
9687 const ptrdiff_t *nl,
9688 const ptrdiff_t *nr,
9689 const ptrdiff_t *sqre,
9690 ptrdiff_t *k,
9691 double *d,
9692 double *z,
9693 double *zw,
9694 double *vf,
9695 double *vfw,
9696 double *vl,
9697 double *vlw,
9698 const double *alpha,
9699 const double *beta,
9700 double *dsigma,
9701 ptrdiff_t *idx,
9702 ptrdiff_t *idxp,
9703 const ptrdiff_t *idxq,
9704 ptrdiff_t *perm,
9705 ptrdiff_t *givptr,
9706 ptrdiff_t *givcol,
9707 const ptrdiff_t *ldgcol,
9708 double *givnum,
9709 const ptrdiff_t *ldgnum,
9710 double *c,
9711 double *s,
9712 ptrdiff_t *info
9713);
9714
9715/* Source: dlasd8.f */
9716#define dlasd8 FORTRAN_WRAPPER(dlasd8)
9717extern void dlasd8(
9718 const ptrdiff_t *icompq,
9719 const ptrdiff_t *k,
9720 double *d,
9721 double *z,
9722 double *vf,
9723 double *vl,
9724 double *difl,
9725 double *difr,
9726 const ptrdiff_t *lddifr,
9727 double *dsigma,
9728 double *work,
9729 ptrdiff_t *info
9730);
9731
9732/* Source: dlasda.f */
9733#define dlasda FORTRAN_WRAPPER(dlasda)
9734extern void dlasda(
9735 const ptrdiff_t *icompq,
9736 const ptrdiff_t *smlsiz,
9737 const ptrdiff_t *n,
9738 const ptrdiff_t *sqre,
9739 double *d,
9740 const double *e,
9741 double *u,
9742 const ptrdiff_t *ldu,
9743 double *vt,
9744 ptrdiff_t *k,
9745 double *difl,
9746 double *difr,
9747 double *z,
9748 double *poles,
9749 ptrdiff_t *givptr,
9750 ptrdiff_t *givcol,
9751 const ptrdiff_t *ldgcol,
9752 ptrdiff_t *perm,
9753 double *givnum,
9754 double *c,
9755 double *s,
9756 double *work,
9757 ptrdiff_t *iwork,
9758 ptrdiff_t *info
9759);
9760
9761/* Source: dlasdq.f */
9762#define dlasdq FORTRAN_WRAPPER(dlasdq)
9763extern void dlasdq(
9764 const char *uplo,
9765 const ptrdiff_t *sqre,
9766 const ptrdiff_t *n,
9767 const ptrdiff_t *ncvt,
9768 const ptrdiff_t *nru,
9769 const ptrdiff_t *ncc,
9770 double *d,
9771 double *e,
9772 double *vt,
9773 const ptrdiff_t *ldvt,
9774 double *u,
9775 const ptrdiff_t *ldu,
9776 double *c,
9777 const ptrdiff_t *ldc,
9778 double *work,
9779 ptrdiff_t *info
9780);
9781
9782/* Source: dlasdt.f */
9783#define dlasdt FORTRAN_WRAPPER(dlasdt)
9784extern void dlasdt(
9785 const ptrdiff_t *n,
9786 ptrdiff_t *lvl,
9787 ptrdiff_t *nd,
9788 ptrdiff_t *inode,
9789 ptrdiff_t *ndiml,
9790 ptrdiff_t *ndimr,
9791 const ptrdiff_t *msub
9792);
9793
9794/* Source: dlaset.f */
9795#define dlaset FORTRAN_WRAPPER(dlaset)
9796extern void dlaset(
9797 const char *uplo,
9798 const ptrdiff_t *m,
9799 const ptrdiff_t *n,
9800 const double *alpha,
9801 const double *beta,
9802 double *a,
9803 const ptrdiff_t *lda
9804);
9805
9806/* Source: dlasq1.f */
9807#define dlasq1 FORTRAN_WRAPPER(dlasq1)
9808extern void dlasq1(
9809 const ptrdiff_t *n,
9810 double *d,
9811 double *e,
9812 double *work,
9813 ptrdiff_t *info
9814);
9815
9816/* Source: dlasq2.f */
9817#define dlasq2 FORTRAN_WRAPPER(dlasq2)
9818extern void dlasq2(
9819 const ptrdiff_t *n,
9820 double *z,
9821 ptrdiff_t *info
9822);
9823
9824/* Source: dlasq3.f */
9825#define dlasq3 FORTRAN_WRAPPER(dlasq3)
9826extern void dlasq3(
9827 const ptrdiff_t *i0,
9828 const ptrdiff_t *n0,
9829 const double *z,
9830 ptrdiff_t *pp,
9831 double *dmin,
9832 double *sigma,
9833 double *desig,
9834 const double *qmax,
9835 ptrdiff_t *nfail,
9836 ptrdiff_t *iter,
9837 ptrdiff_t *ndiv,
9838 const ptrdiff_t *ieee,
9839 ptrdiff_t *ttype,
9840 double *dmin1,
9841 double *dmin2,
9842 double *dn,
9843 double *dn1,
9844 double *dn2,
9845 double *g,
9846 double *tau
9847);
9848
9849/* Source: dlasq4.f */
9850#define dlasq4 FORTRAN_WRAPPER(dlasq4)
9851extern void dlasq4(
9852 const ptrdiff_t *i0,
9853 const ptrdiff_t *n0,
9854 const double *z,
9855 const ptrdiff_t *pp,
9856 ptrdiff_t *n0in,
9857 const double *dmin,
9858 const double *dmin1,
9859 const double *dmin2,
9860 const double *dn,
9861 const double *dn1,
9862 const double *dn2,
9863 double *tau,
9864 ptrdiff_t *ttype,
9865 double *g
9866);
9867
9868/* Source: dlasq5.f */
9869#define dlasq5 FORTRAN_WRAPPER(dlasq5)
9870extern void dlasq5(
9871 const ptrdiff_t *i0,
9872 const ptrdiff_t *n0,
9873 const double *z,
9874 const ptrdiff_t *pp,
9875 const double *tau,
9876 const double *sigma,
9877 double *dmin,
9878 double *dmin1,
9879 double *dmin2,
9880 double *dn,
9881 double *dnm1,
9882 double *dnm2,
9883 const ptrdiff_t *ieee,
9884 const double *eps
9885);
9886
9887/* Source: dlasq6.f */
9888#define dlasq6 FORTRAN_WRAPPER(dlasq6)
9889extern void dlasq6(
9890 const ptrdiff_t *i0,
9891 const ptrdiff_t *n0,
9892 const double *z,
9893 const ptrdiff_t *pp,
9894 double *dmin,
9895 double *dmin1,
9896 double *dmin2,
9897 double *dn,
9898 double *dnm1,
9899 double *dnm2
9900);
9901
9902/* Source: dlasr.f */
9903#define dlasr FORTRAN_WRAPPER(dlasr)
9904extern void dlasr(
9905 const char *side,
9906 const char *pivot,
9907 const char *direct,
9908 const ptrdiff_t *m,
9909 const ptrdiff_t *n,
9910 const double *c,
9911 const double *s,
9912 double *a,
9913 const ptrdiff_t *lda
9914);
9915
9916/* Source: dlasrt.f */
9917#define dlasrt FORTRAN_WRAPPER(dlasrt)
9918extern void dlasrt(
9919 const char *id,
9920 const ptrdiff_t *n,
9921 double *d,
9922 ptrdiff_t *info
9923);
9924
9925/* Source: dlassq.f */
9926#define dlassq FORTRAN_WRAPPER(dlassq)
9927extern void dlassq(
9928 const ptrdiff_t *n,
9929 const double *x,
9930 const ptrdiff_t *incx,
9931 double *scale,
9932 double *sumsq
9933);
9934
9935/* Source: dlasv2.f */
9936#define dlasv2 FORTRAN_WRAPPER(dlasv2)
9937extern void dlasv2(
9938 const double *f,
9939 const double *g,
9940 const double *h,
9941 double *ssmin,
9942 double *ssmax,
9943 double *snr,
9944 double *csr,
9945 double *snl,
9946 double *csl
9947);
9948
9949/* Source: dlaswp.f */
9950#define dlaswp FORTRAN_WRAPPER(dlaswp)
9951extern void dlaswp(
9952 const ptrdiff_t *n,
9953 double *a,
9954 const ptrdiff_t *lda,
9955 const ptrdiff_t *k1,
9956 const ptrdiff_t *k2,
9957 const ptrdiff_t *ipiv,
9958 const ptrdiff_t *incx
9959);
9960
9961/* Source: dlasy2.f */
9962#define dlasy2 FORTRAN_WRAPPER(dlasy2)
9963extern void dlasy2(
9964 const ptrdiff_t *ltranl,
9965 const ptrdiff_t *ltranr,
9966 const ptrdiff_t *isgn,
9967 const ptrdiff_t *n1,
9968 const ptrdiff_t *n2,
9969 const double *tl,
9970 const ptrdiff_t *ldtl,
9971 const double *tr,
9972 const ptrdiff_t *ldtr,
9973 const double *b,
9974 const ptrdiff_t *ldb,
9975 double *scale,
9976 double *x,
9977 const ptrdiff_t *ldx,
9978 double *xnorm,
9979 ptrdiff_t *info
9980);
9981
9982/* Source: dlasyf.f */
9983#define dlasyf FORTRAN_WRAPPER(dlasyf)
9984extern void dlasyf(
9985 const char *uplo,
9986 const ptrdiff_t *n,
9987 const ptrdiff_t *nb,
9988 ptrdiff_t *kb,
9989 double *a,
9990 const ptrdiff_t *lda,
9991 ptrdiff_t *ipiv,
9992 double *w,
9993 const ptrdiff_t *ldw,
9994 ptrdiff_t *info
9995);
9996
9997/* Source: dlasyf_rook.f */
9998#define dlasyf_rook FORTRAN_WRAPPER(dlasyf_rook)
9999extern void dlasyf_rook(
10000 const char *uplo,
10001 const ptrdiff_t *n,
10002 const ptrdiff_t *nb,
10003 ptrdiff_t *kb,
10004 double *a,
10005 const ptrdiff_t *lda,
10006 ptrdiff_t *ipiv,
10007 double *w,
10008 const ptrdiff_t *ldw,
10009 ptrdiff_t *info
10010);
10011
10012/* Source: dlat2s.f */
10013#define dlat2s FORTRAN_WRAPPER(dlat2s)
10014extern void dlat2s(
10015 const char *uplo,
10016 const ptrdiff_t *n,
10017 const double *a,
10018 const ptrdiff_t *lda,
10019 float *sa,
10020 const ptrdiff_t *ldsa,
10021 ptrdiff_t *info
10022);
10023
10024/* Source: dlatbs.f */
10025#define dlatbs FORTRAN_WRAPPER(dlatbs)
10026extern void dlatbs(
10027 const char *uplo,
10028 const char *trans,
10029 const char *diag,
10030 const char *normin,
10031 const ptrdiff_t *n,
10032 const ptrdiff_t *kd,
10033 const double *ab,
10034 const ptrdiff_t *ldab,
10035 double *x,
10036 double *scale,
10037 double *cnorm,
10038 ptrdiff_t *info
10039);
10040
10041/* Source: dlatdf.f */
10042#define dlatdf FORTRAN_WRAPPER(dlatdf)
10043extern void dlatdf(
10044 const ptrdiff_t *ijob,
10045 const ptrdiff_t *n,
10046 const double *z,
10047 const ptrdiff_t *ldz,
10048 double *rhs,
10049 double *rdsum,
10050 double *rdscal,
10051 const ptrdiff_t *ipiv,
10052 const ptrdiff_t *jpiv
10053);
10054
10055/* Source: dlatps.f */
10056#define dlatps FORTRAN_WRAPPER(dlatps)
10057extern void dlatps(
10058 const char *uplo,
10059 const char *trans,
10060 const char *diag,
10061 const char *normin,
10062 const ptrdiff_t *n,
10063 const double *ap,
10064 double *x,
10065 double *scale,
10066 double *cnorm,
10067 ptrdiff_t *info
10068);
10069
10070/* Source: dlatrd.f */
10071#define dlatrd FORTRAN_WRAPPER(dlatrd)
10072extern void dlatrd(
10073 const char *uplo,
10074 const ptrdiff_t *n,
10075 const ptrdiff_t *nb,
10076 double *a,
10077 const ptrdiff_t *lda,
10078 double *e,
10079 double *tau,
10080 double *w,
10081 const ptrdiff_t *ldw
10082);
10083
10084/* Source: dlatrs.f */
10085#define dlatrs FORTRAN_WRAPPER(dlatrs)
10086extern void dlatrs(
10087 const char *uplo,
10088 const char *trans,
10089 const char *diag,
10090 const char *normin,
10091 const ptrdiff_t *n,
10092 const double *a,
10093 const ptrdiff_t *lda,
10094 double *x,
10095 double *scale,
10096 double *cnorm,
10097 ptrdiff_t *info
10098);
10099
10100/* Source: dlatrz.f */
10101#define dlatrz FORTRAN_WRAPPER(dlatrz)
10102extern void dlatrz(
10103 const ptrdiff_t *m,
10104 const ptrdiff_t *n,
10105 const ptrdiff_t *l,
10106 double *a,
10107 const ptrdiff_t *lda,
10108 double *tau,
10109 double *work
10110);
10111
10112/* Source: dlatzm.f */
10113#define dlatzm FORTRAN_WRAPPER(dlatzm)
10114extern void dlatzm(
10115 const char *side,
10116 const ptrdiff_t *m,
10117 const ptrdiff_t *n,
10118 const double *v,
10119 const ptrdiff_t *incv,
10120 const double *tau,
10121 double *c1,
10122 double *c2,
10123 const ptrdiff_t *ldc,
10124 double *work
10125);
10126
10127/* Source: dlauu2.f */
10128#define dlauu2 FORTRAN_WRAPPER(dlauu2)
10129extern void dlauu2(
10130 const char *uplo,
10131 const ptrdiff_t *n,
10132 double *a,
10133 const ptrdiff_t *lda,
10134 ptrdiff_t *info
10135);
10136
10137/* Source: dlauum.f */
10138#define dlauum FORTRAN_WRAPPER(dlauum)
10139extern void dlauum(
10140 const char *uplo,
10141 const ptrdiff_t *n,
10142 double *a,
10143 const ptrdiff_t *lda,
10144 ptrdiff_t *info
10145);
10146
10147/* Source: dopgtr.f */
10148#define dopgtr FORTRAN_WRAPPER(dopgtr)
10149extern void dopgtr(
10150 const char *uplo,
10151 const ptrdiff_t *n,
10152 const double *ap,
10153 const double *tau,
10154 double *q,
10155 const ptrdiff_t *ldq,
10156 double *work,
10157 ptrdiff_t *info
10158);
10159
10160/* Source: dopmtr.f */
10161#define dopmtr FORTRAN_WRAPPER(dopmtr)
10162extern void dopmtr(
10163 const char *side,
10164 const char *uplo,
10165 const char *trans,
10166 const ptrdiff_t *m,
10167 const ptrdiff_t *n,
10168 const double *ap,
10169 const double *tau,
10170 double *c,
10171 const ptrdiff_t *ldc,
10172 double *work,
10173 ptrdiff_t *info
10174);
10175
10176/* Source: dorbdb.f */
10177#define dorbdb FORTRAN_WRAPPER(dorbdb)
10178extern void dorbdb(
10179 const char *trans,
10180 const char *signs,
10181 const ptrdiff_t *m,
10182 const ptrdiff_t *p,
10183 const ptrdiff_t *q,
10184 double *x11,
10185 const ptrdiff_t *ldx11,
10186 double *x12,
10187 const ptrdiff_t *ldx12,
10188 double *x21,
10189 const ptrdiff_t *ldx21,
10190 double *x22,
10191 const ptrdiff_t *ldx22,
10192 double *theta,
10193 double *phi,
10194 double *taup1,
10195 double *taup2,
10196 double *tauq1,
10197 double *tauq2,
10198 double *work,
10199 const ptrdiff_t *lwork,
10200 ptrdiff_t *info
10201);
10202
10203/* Source: dorbdb1.f */
10204#define dorbdb1 FORTRAN_WRAPPER(dorbdb1)
10205extern void dorbdb1(
10206 const ptrdiff_t *m,
10207 const ptrdiff_t *p,
10208 const ptrdiff_t *q,
10209 double *x11,
10210 const ptrdiff_t *ldx11,
10211 double *x21,
10212 const ptrdiff_t *ldx21,
10213 double *theta,
10214 double *phi,
10215 double *taup1,
10216 double *taup2,
10217 double *tauq1,
10218 double *work,
10219 const ptrdiff_t *lwork,
10220 ptrdiff_t *info
10221);
10222
10223/* Source: dorbdb2.f */
10224#define dorbdb2 FORTRAN_WRAPPER(dorbdb2)
10225extern void dorbdb2(
10226 const ptrdiff_t *m,
10227 const ptrdiff_t *p,
10228 const ptrdiff_t *q,
10229 double *x11,
10230 const ptrdiff_t *ldx11,
10231 double *x21,
10232 const ptrdiff_t *ldx21,
10233 double *theta,
10234 double *phi,
10235 double *taup1,
10236 double *taup2,
10237 double *tauq1,
10238 double *work,
10239 const ptrdiff_t *lwork,
10240 ptrdiff_t *info
10241);
10242
10243/* Source: dorbdb3.f */
10244#define dorbdb3 FORTRAN_WRAPPER(dorbdb3)
10245extern void dorbdb3(
10246 const ptrdiff_t *m,
10247 const ptrdiff_t *p,
10248 const ptrdiff_t *q,
10249 double *x11,
10250 const ptrdiff_t *ldx11,
10251 double *x21,
10252 const ptrdiff_t *ldx21,
10253 double *theta,
10254 double *phi,
10255 double *taup1,
10256 double *taup2,
10257 double *tauq1,
10258 double *work,
10259 const ptrdiff_t *lwork,
10260 ptrdiff_t *info
10261);
10262
10263/* Source: dorbdb4.f */
10264#define dorbdb4 FORTRAN_WRAPPER(dorbdb4)
10265extern void dorbdb4(
10266 const ptrdiff_t *m,
10267 const ptrdiff_t *p,
10268 const ptrdiff_t *q,
10269 double *x11,
10270 const ptrdiff_t *ldx11,
10271 double *x21,
10272 const ptrdiff_t *ldx21,
10273 double *theta,
10274 double *phi,
10275 double *taup1,
10276 double *taup2,
10277 double *tauq1,
10278 double *phantom,
10279 double *work,
10280 const ptrdiff_t *lwork,
10281 ptrdiff_t *info
10282);
10283
10284/* Source: dorbdb5.f */
10285#define dorbdb5 FORTRAN_WRAPPER(dorbdb5)
10286extern void dorbdb5(
10287 const ptrdiff_t *m1,
10288 const ptrdiff_t *m2,
10289 const ptrdiff_t *n,
10290 double *x1,
10291 const ptrdiff_t *incx1,
10292 double *x2,
10293 const ptrdiff_t *incx2,
10294 double *q1,
10295 const ptrdiff_t *ldq1,
10296 double *q2,
10297 const ptrdiff_t *ldq2,
10298 double *work,
10299 const ptrdiff_t *lwork,
10300 ptrdiff_t *info
10301);
10302
10303/* Source: dorbdb6.f */
10304#define dorbdb6 FORTRAN_WRAPPER(dorbdb6)
10305extern void dorbdb6(
10306 const ptrdiff_t *m1,
10307 const ptrdiff_t *m2,
10308 const ptrdiff_t *n,
10309 double *x1,
10310 const ptrdiff_t *incx1,
10311 double *x2,
10312 const ptrdiff_t *incx2,
10313 double *q1,
10314 const ptrdiff_t *ldq1,
10315 double *q2,
10316 const ptrdiff_t *ldq2,
10317 double *work,
10318 const ptrdiff_t *lwork,
10319 ptrdiff_t *info
10320);
10321
10322/* Source: dorcsd.f */
10323#define dorcsd FORTRAN_WRAPPER(dorcsd)
10324extern void dorcsd(
10325 const char *jobu1,
10326 const char *jobu2,
10327 const char *jobv1t,
10328 const char *jobv2t,
10329 const char *trans,
10330 const char *signs,
10331 const ptrdiff_t *m,
10332 const ptrdiff_t *p,
10333 const ptrdiff_t *q,
10334 double *x11,
10335 const ptrdiff_t *ldx11,
10336 double *x12,
10337 const ptrdiff_t *ldx12,
10338 double *x21,
10339 const ptrdiff_t *ldx21,
10340 double *x22,
10341 const ptrdiff_t *ldx22,
10342 double *theta,
10343 double *u1,
10344 const ptrdiff_t *ldu1,
10345 double *u2,
10346 const ptrdiff_t *ldu2,
10347 double *v1t,
10348 const ptrdiff_t *ldv1t,
10349 double *v2t,
10350 const ptrdiff_t *ldv2t,
10351 double *work,
10352 const ptrdiff_t *lwork,
10353 ptrdiff_t *iwork,
10354 ptrdiff_t *info
10355);
10356
10357/* Source: dorcsd2by1.f */
10358#define dorcsd2by1 FORTRAN_WRAPPER(dorcsd2by1)
10359extern void dorcsd2by1(
10360 const char *jobu1,
10361 const char *jobu2,
10362 const char *jobv1t,
10363 const ptrdiff_t *m,
10364 const ptrdiff_t *p,
10365 const ptrdiff_t *q,
10366 double *x11,
10367 const ptrdiff_t *ldx11,
10368 double *x21,
10369 const ptrdiff_t *ldx21,
10370 double *theta,
10371 double *u1,
10372 const ptrdiff_t *ldu1,
10373 double *u2,
10374 const ptrdiff_t *ldu2,
10375 double *v1t,
10376 const ptrdiff_t *ldv1t,
10377 double *work,
10378 const ptrdiff_t *lwork,
10379 ptrdiff_t *iwork,
10380 ptrdiff_t *info
10381);
10382
10383/* Source: dorg2l.f */
10384#define dorg2l FORTRAN_WRAPPER(dorg2l)
10385extern void dorg2l(
10386 const ptrdiff_t *m,
10387 const ptrdiff_t *n,
10388 const ptrdiff_t *k,
10389 double *a,
10390 const ptrdiff_t *lda,
10391 const double *tau,
10392 double *work,
10393 ptrdiff_t *info
10394);
10395
10396/* Source: dorg2r.f */
10397#define dorg2r FORTRAN_WRAPPER(dorg2r)
10398extern void dorg2r(
10399 const ptrdiff_t *m,
10400 const ptrdiff_t *n,
10401 const ptrdiff_t *k,
10402 double *a,
10403 const ptrdiff_t *lda,
10404 const double *tau,
10405 double *work,
10406 ptrdiff_t *info
10407);
10408
10409/* Source: dorgbr.f */
10410#define dorgbr FORTRAN_WRAPPER(dorgbr)
10411extern void dorgbr(
10412 const char *vect,
10413 const ptrdiff_t *m,
10414 const ptrdiff_t *n,
10415 const ptrdiff_t *k,
10416 double *a,
10417 const ptrdiff_t *lda,
10418 const double *tau,
10419 double *work,
10420 const ptrdiff_t *lwork,
10421 ptrdiff_t *info
10422);
10423
10424/* Source: dorghr.f */
10425#define dorghr FORTRAN_WRAPPER(dorghr)
10426extern void dorghr(
10427 const ptrdiff_t *n,
10428 const ptrdiff_t *ilo,
10429 const ptrdiff_t *ihi,
10430 double *a,
10431 const ptrdiff_t *lda,
10432 const double *tau,
10433 double *work,
10434 const ptrdiff_t *lwork,
10435 ptrdiff_t *info
10436);
10437
10438/* Source: dorgl2.f */
10439#define dorgl2 FORTRAN_WRAPPER(dorgl2)
10440extern void dorgl2(
10441 const ptrdiff_t *m,
10442 const ptrdiff_t *n,
10443 const ptrdiff_t *k,
10444 double *a,
10445 const ptrdiff_t *lda,
10446 const double *tau,
10447 double *work,
10448 ptrdiff_t *info
10449);
10450
10451/* Source: dorglq.f */
10452#define dorglq FORTRAN_WRAPPER(dorglq)
10453extern void dorglq(
10454 const ptrdiff_t *m,
10455 const ptrdiff_t *n,
10456 const ptrdiff_t *k,
10457 double *a,
10458 const ptrdiff_t *lda,
10459 const double *tau,
10460 double *work,
10461 const ptrdiff_t *lwork,
10462 ptrdiff_t *info
10463);
10464
10465/* Source: dorgql.f */
10466#define dorgql FORTRAN_WRAPPER(dorgql)
10467extern void dorgql(
10468 const ptrdiff_t *m,
10469 const ptrdiff_t *n,
10470 const ptrdiff_t *k,
10471 double *a,
10472 const ptrdiff_t *lda,
10473 const double *tau,
10474 double *work,
10475 const ptrdiff_t *lwork,
10476 ptrdiff_t *info
10477);
10478
10479/* Source: dorgqr.f */
10480#define dorgqr FORTRAN_WRAPPER(dorgqr)
10481extern void dorgqr(
10482 const ptrdiff_t *m,
10483 const ptrdiff_t *n,
10484 const ptrdiff_t *k,
10485 double *a,
10486 const ptrdiff_t *lda,
10487 const double *tau,
10488 double *work,
10489 const ptrdiff_t *lwork,
10490 ptrdiff_t *info
10491);
10492
10493/* Source: dorgr2.f */
10494#define dorgr2 FORTRAN_WRAPPER(dorgr2)
10495extern void dorgr2(
10496 const ptrdiff_t *m,
10497 const ptrdiff_t *n,
10498 const ptrdiff_t *k,
10499 double *a,
10500 const ptrdiff_t *lda,
10501 const double *tau,
10502 double *work,
10503 ptrdiff_t *info
10504);
10505
10506/* Source: dorgrq.f */
10507#define dorgrq FORTRAN_WRAPPER(dorgrq)
10508extern void dorgrq(
10509 const ptrdiff_t *m,
10510 const ptrdiff_t *n,
10511 const ptrdiff_t *k,
10512 double *a,
10513 const ptrdiff_t *lda,
10514 const double *tau,
10515 double *work,
10516 const ptrdiff_t *lwork,
10517 ptrdiff_t *info
10518);
10519
10520/* Source: dorgtr.f */
10521#define dorgtr FORTRAN_WRAPPER(dorgtr)
10522extern void dorgtr(
10523 const char *uplo,
10524 const ptrdiff_t *n,
10525 double *a,
10526 const ptrdiff_t *lda,
10527 const double *tau,
10528 double *work,
10529 const ptrdiff_t *lwork,
10530 ptrdiff_t *info
10531);
10532
10533/* Source: dorm2l.f */
10534#define dorm2l FORTRAN_WRAPPER(dorm2l)
10535extern void dorm2l(
10536 const char *side,
10537 const char *trans,
10538 const ptrdiff_t *m,
10539 const ptrdiff_t *n,
10540 const ptrdiff_t *k,
10541 const double *a,
10542 const ptrdiff_t *lda,
10543 const double *tau,
10544 double *c,
10545 const ptrdiff_t *ldc,
10546 double *work,
10547 ptrdiff_t *info
10548);
10549
10550/* Source: dorm2r.f */
10551#define dorm2r FORTRAN_WRAPPER(dorm2r)
10552extern void dorm2r(
10553 const char *side,
10554 const char *trans,
10555 const ptrdiff_t *m,
10556 const ptrdiff_t *n,
10557 const ptrdiff_t *k,
10558 const double *a,
10559 const ptrdiff_t *lda,
10560 const double *tau,
10561 double *c,
10562 const ptrdiff_t *ldc,
10563 double *work,
10564 ptrdiff_t *info
10565);
10566
10567/* Source: dormbr.f */
10568#define dormbr FORTRAN_WRAPPER(dormbr)
10569extern void dormbr(
10570 const char *vect,
10571 const char *side,
10572 const char *trans,
10573 const ptrdiff_t *m,
10574 const ptrdiff_t *n,
10575 const ptrdiff_t *k,
10576 const double *a,
10577 const ptrdiff_t *lda,
10578 const double *tau,
10579 double *c,
10580 const ptrdiff_t *ldc,
10581 double *work,
10582 const ptrdiff_t *lwork,
10583 ptrdiff_t *info
10584);
10585
10586/* Source: dormhr.f */
10587#define dormhr FORTRAN_WRAPPER(dormhr)
10588extern void dormhr(
10589 const char *side,
10590 const char *trans,
10591 const ptrdiff_t *m,
10592 const ptrdiff_t *n,
10593 const ptrdiff_t *ilo,
10594 const ptrdiff_t *ihi,
10595 const double *a,
10596 const ptrdiff_t *lda,
10597 const double *tau,
10598 double *c,
10599 const ptrdiff_t *ldc,
10600 double *work,
10601 const ptrdiff_t *lwork,
10602 ptrdiff_t *info
10603);
10604
10605/* Source: dorml2.f */
10606#define dorml2 FORTRAN_WRAPPER(dorml2)
10607extern void dorml2(
10608 const char *side,
10609 const char *trans,
10610 const ptrdiff_t *m,
10611 const ptrdiff_t *n,
10612 const ptrdiff_t *k,
10613 const double *a,
10614 const ptrdiff_t *lda,
10615 const double *tau,
10616 double *c,
10617 const ptrdiff_t *ldc,
10618 double *work,
10619 ptrdiff_t *info
10620);
10621
10622/* Source: dormlq.f */
10623#define dormlq FORTRAN_WRAPPER(dormlq)
10624extern void dormlq(
10625 const char *side,
10626 const char *trans,
10627 const ptrdiff_t *m,
10628 const ptrdiff_t *n,
10629 const ptrdiff_t *k,
10630 const double *a,
10631 const ptrdiff_t *lda,
10632 const double *tau,
10633 double *c,
10634 const ptrdiff_t *ldc,
10635 double *work,
10636 const ptrdiff_t *lwork,
10637 ptrdiff_t *info
10638);
10639
10640/* Source: dormql.f */
10641#define dormql FORTRAN_WRAPPER(dormql)
10642extern void dormql(
10643 const char *side,
10644 const char *trans,
10645 const ptrdiff_t *m,
10646 const ptrdiff_t *n,
10647 const ptrdiff_t *k,
10648 const double *a,
10649 const ptrdiff_t *lda,
10650 const double *tau,
10651 double *c,
10652 const ptrdiff_t *ldc,
10653 double *work,
10654 const ptrdiff_t *lwork,
10655 ptrdiff_t *info
10656);
10657
10658/* Source: dormqr.f */
10659#define dormqr FORTRAN_WRAPPER(dormqr)
10660extern void dormqr(
10661 const char *side,
10662 const char *trans,
10663 const ptrdiff_t *m,
10664 const ptrdiff_t *n,
10665 const ptrdiff_t *k,
10666 const double *a,
10667 const ptrdiff_t *lda,
10668 const double *tau,
10669 double *c,
10670 const ptrdiff_t *ldc,
10671 double *work,
10672 const ptrdiff_t *lwork,
10673 ptrdiff_t *info
10674);
10675
10676/* Source: dormr2.f */
10677#define dormr2 FORTRAN_WRAPPER(dormr2)
10678extern void dormr2(
10679 const char *side,
10680 const char *trans,
10681 const ptrdiff_t *m,
10682 const ptrdiff_t *n,
10683 const ptrdiff_t *k,
10684 const double *a,
10685 const ptrdiff_t *lda,
10686 const double *tau,
10687 double *c,
10688 const ptrdiff_t *ldc,
10689 double *work,
10690 ptrdiff_t *info
10691);
10692
10693/* Source: dormr3.f */
10694#define dormr3 FORTRAN_WRAPPER(dormr3)
10695extern void dormr3(
10696 const char *side,
10697 const char *trans,
10698 const ptrdiff_t *m,
10699 const ptrdiff_t *n,
10700 const ptrdiff_t *k,
10701 const ptrdiff_t *l,
10702 const double *a,
10703 const ptrdiff_t *lda,
10704 const double *tau,
10705 double *c,
10706 const ptrdiff_t *ldc,
10707 double *work,
10708 ptrdiff_t *info
10709);
10710
10711/* Source: dormrq.f */
10712#define dormrq FORTRAN_WRAPPER(dormrq)
10713extern void dormrq(
10714 const char *side,
10715 const char *trans,
10716 const ptrdiff_t *m,
10717 const ptrdiff_t *n,
10718 const ptrdiff_t *k,
10719 const double *a,
10720 const ptrdiff_t *lda,
10721 const double *tau,
10722 double *c,
10723 const ptrdiff_t *ldc,
10724 double *work,
10725 const ptrdiff_t *lwork,
10726 ptrdiff_t *info
10727);
10728
10729/* Source: dormrz.f */
10730#define dormrz FORTRAN_WRAPPER(dormrz)
10731extern void dormrz(
10732 const char *side,
10733 const char *trans,
10734 const ptrdiff_t *m,
10735 const ptrdiff_t *n,
10736 const ptrdiff_t *k,
10737 const ptrdiff_t *l,
10738 const double *a,
10739 const ptrdiff_t *lda,
10740 const double *tau,
10741 double *c,
10742 const ptrdiff_t *ldc,
10743 double *work,
10744 const ptrdiff_t *lwork,
10745 ptrdiff_t *info
10746);
10747
10748/* Source: dormtr.f */
10749#define dormtr FORTRAN_WRAPPER(dormtr)
10750extern void dormtr(
10751 const char *side,
10752 const char *uplo,
10753 const char *trans,
10754 const ptrdiff_t *m,
10755 const ptrdiff_t *n,
10756 const double *a,
10757 const ptrdiff_t *lda,
10758 const double *tau,
10759 double *c,
10760 const ptrdiff_t *ldc,
10761 double *work,
10762 const ptrdiff_t *lwork,
10763 ptrdiff_t *info
10764);
10765
10766/* Source: dpbcon.f */
10767#define dpbcon FORTRAN_WRAPPER(dpbcon)
10768extern void dpbcon(
10769 const char *uplo,
10770 const ptrdiff_t *n,
10771 const ptrdiff_t *kd,
10772 const double *ab,
10773 const ptrdiff_t *ldab,
10774 const double *anorm,
10775 double *rcond,
10776 double *work,
10777 ptrdiff_t *iwork,
10778 ptrdiff_t *info
10779);
10780
10781/* Source: dpbequ.f */
10782#define dpbequ FORTRAN_WRAPPER(dpbequ)
10783extern void dpbequ(
10784 const char *uplo,
10785 const ptrdiff_t *n,
10786 const ptrdiff_t *kd,
10787 const double *ab,
10788 const ptrdiff_t *ldab,
10789 double *s,
10790 double *scond,
10791 double *amax,
10792 ptrdiff_t *info
10793);
10794
10795/* Source: dpbrfs.f */
10796#define dpbrfs FORTRAN_WRAPPER(dpbrfs)
10797extern void dpbrfs(
10798 const char *uplo,
10799 const ptrdiff_t *n,
10800 const ptrdiff_t *kd,
10801 const ptrdiff_t *nrhs,
10802 const double *ab,
10803 const ptrdiff_t *ldab,
10804 const double *afb,
10805 const ptrdiff_t *ldafb,
10806 const double *b,
10807 const ptrdiff_t *ldb,
10808 double *x,
10809 const ptrdiff_t *ldx,
10810 double *ferr,
10811 double *berr,
10812 double *work,
10813 ptrdiff_t *iwork,
10814 ptrdiff_t *info
10815);
10816
10817/* Source: dpbstf.f */
10818#define dpbstf FORTRAN_WRAPPER(dpbstf)
10819extern void dpbstf(
10820 const char *uplo,
10821 const ptrdiff_t *n,
10822 const ptrdiff_t *kd,
10823 double *ab,
10824 const ptrdiff_t *ldab,
10825 ptrdiff_t *info
10826);
10827
10828/* Source: dpbsv.f */
10829#define dpbsv FORTRAN_WRAPPER(dpbsv)
10830extern void dpbsv(
10831 const char *uplo,
10832 const ptrdiff_t *n,
10833 const ptrdiff_t *kd,
10834 const ptrdiff_t *nrhs,
10835 double *ab,
10836 const ptrdiff_t *ldab,
10837 double *b,
10838 const ptrdiff_t *ldb,
10839 ptrdiff_t *info
10840);
10841
10842/* Source: dpbsvx.f */
10843#define dpbsvx FORTRAN_WRAPPER(dpbsvx)
10844extern void dpbsvx(
10845 const char *fact,
10846 const char *uplo,
10847 const ptrdiff_t *n,
10848 const ptrdiff_t *kd,
10849 const ptrdiff_t *nrhs,
10850 double *ab,
10851 const ptrdiff_t *ldab,
10852 double *afb,
10853 const ptrdiff_t *ldafb,
10854 char *equed,
10855 double *s,
10856 double *b,
10857 const ptrdiff_t *ldb,
10858 double *x,
10859 const ptrdiff_t *ldx,
10860 double *rcond,
10861 double *ferr,
10862 double *berr,
10863 double *work,
10864 ptrdiff_t *iwork,
10865 ptrdiff_t *info
10866);
10867
10868/* Source: dpbtf2.f */
10869#define dpbtf2 FORTRAN_WRAPPER(dpbtf2)
10870extern void dpbtf2(
10871 const char *uplo,
10872 const ptrdiff_t *n,
10873 const ptrdiff_t *kd,
10874 double *ab,
10875 const ptrdiff_t *ldab,
10876 ptrdiff_t *info
10877);
10878
10879/* Source: dpbtrf.f */
10880#define dpbtrf FORTRAN_WRAPPER(dpbtrf)
10881extern void dpbtrf(
10882 const char *uplo,
10883 const ptrdiff_t *n,
10884 const ptrdiff_t *kd,
10885 double *ab,
10886 const ptrdiff_t *ldab,
10887 ptrdiff_t *info
10888);
10889
10890/* Source: dpbtrs.f */
10891#define dpbtrs FORTRAN_WRAPPER(dpbtrs)
10892extern void dpbtrs(
10893 const char *uplo,
10894 const ptrdiff_t *n,
10895 const ptrdiff_t *kd,
10896 const ptrdiff_t *nrhs,
10897 const double *ab,
10898 const ptrdiff_t *ldab,
10899 double *b,
10900 const ptrdiff_t *ldb,
10901 ptrdiff_t *info
10902);
10903
10904/* Source: dpftrf.f */
10905#define dpftrf FORTRAN_WRAPPER(dpftrf)
10906extern void dpftrf(
10907 const char *transr,
10908 const char *uplo,
10909 const ptrdiff_t *n,
10910 double *a,
10911 ptrdiff_t *info
10912);
10913
10914/* Source: dpftri.f */
10915#define dpftri FORTRAN_WRAPPER(dpftri)
10916extern void dpftri(
10917 const char *transr,
10918 const char *uplo,
10919 const ptrdiff_t *n,
10920 double *a,
10921 ptrdiff_t *info
10922);
10923
10924/* Source: dpftrs.f */
10925#define dpftrs FORTRAN_WRAPPER(dpftrs)
10926extern void dpftrs(
10927 const char *transr,
10928 const char *uplo,
10929 const ptrdiff_t *n,
10930 const ptrdiff_t *nrhs,
10931 const double *a,
10932 double *b,
10933 const ptrdiff_t *ldb,
10934 ptrdiff_t *info
10935);
10936
10937/* Source: dpocon.f */
10938#define dpocon FORTRAN_WRAPPER(dpocon)
10939extern void dpocon(
10940 const char *uplo,
10941 const ptrdiff_t *n,
10942 const double *a,
10943 const ptrdiff_t *lda,
10944 const double *anorm,
10945 double *rcond,
10946 double *work,
10947 ptrdiff_t *iwork,
10948 ptrdiff_t *info
10949);
10950
10951/* Source: dpoequ.f */
10952#define dpoequ FORTRAN_WRAPPER(dpoequ)
10953extern void dpoequ(
10954 const ptrdiff_t *n,
10955 const double *a,
10956 const ptrdiff_t *lda,
10957 double *s,
10958 double *scond,
10959 double *amax,
10960 ptrdiff_t *info
10961);
10962
10963/* Source: dpoequb.f */
10964#define dpoequb FORTRAN_WRAPPER(dpoequb)
10965extern void dpoequb(
10966 const ptrdiff_t *n,
10967 const double *a,
10968 const ptrdiff_t *lda,
10969 double *s,
10970 double *scond,
10971 double *amax,
10972 ptrdiff_t *info
10973);
10974
10975/* Source: dporfs.f */
10976#define dporfs FORTRAN_WRAPPER(dporfs)
10977extern void dporfs(
10978 const char *uplo,
10979 const ptrdiff_t *n,
10980 const ptrdiff_t *nrhs,
10981 const double *a,
10982 const ptrdiff_t *lda,
10983 const double *af,
10984 const ptrdiff_t *ldaf,
10985 const double *b,
10986 const ptrdiff_t *ldb,
10987 double *x,
10988 const ptrdiff_t *ldx,
10989 double *ferr,
10990 double *berr,
10991 double *work,
10992 ptrdiff_t *iwork,
10993 ptrdiff_t *info
10994);
10995
10996/* Source: dposv.f */
10997#define dposv FORTRAN_WRAPPER(dposv)
10998extern void dposv(
10999 const char *uplo,
11000 const ptrdiff_t *n,
11001 const ptrdiff_t *nrhs,
11002 double *a,
11003 const ptrdiff_t *lda,
11004 double *b,
11005 const ptrdiff_t *ldb,
11006 ptrdiff_t *info
11007);
11008
11009/* Source: dposvx.f */
11010#define dposvx FORTRAN_WRAPPER(dposvx)
11011extern void dposvx(
11012 const char *fact,
11013 const char *uplo,
11014 const ptrdiff_t *n,
11015 const ptrdiff_t *nrhs,
11016 double *a,
11017 const ptrdiff_t *lda,
11018 double *af,
11019 const ptrdiff_t *ldaf,
11020 char *equed,
11021 double *s,
11022 double *b,
11023 const ptrdiff_t *ldb,
11024 double *x,
11025 const ptrdiff_t *ldx,
11026 double *rcond,
11027 double *ferr,
11028 double *berr,
11029 double *work,
11030 ptrdiff_t *iwork,
11031 ptrdiff_t *info
11032);
11033
11034/* Source: dpotf2.f */
11035#define dpotf2 FORTRAN_WRAPPER(dpotf2)
11036extern void dpotf2(
11037 const char *uplo,
11038 const ptrdiff_t *n,
11039 double *a,
11040 const ptrdiff_t *lda,
11041 ptrdiff_t *info
11042);
11043
11044/* Source: dpotrf.f */
11045#define dpotrf FORTRAN_WRAPPER(dpotrf)
11046extern void dpotrf(
11047 const char *uplo,
11048 const ptrdiff_t *n,
11049 double *a,
11050 const ptrdiff_t *lda,
11051 ptrdiff_t *info
11052);
11053
11054/* Source: dpotri.f */
11055#define dpotri FORTRAN_WRAPPER(dpotri)
11056extern void dpotri(
11057 const char *uplo,
11058 const ptrdiff_t *n,
11059 double *a,
11060 const ptrdiff_t *lda,
11061 ptrdiff_t *info
11062);
11063
11064/* Source: dpotrs.f */
11065#define dpotrs FORTRAN_WRAPPER(dpotrs)
11066extern void dpotrs(
11067 const char *uplo,
11068 const ptrdiff_t *n,
11069 const ptrdiff_t *nrhs,
11070 const double *a,
11071 const ptrdiff_t *lda,
11072 double *b,
11073 const ptrdiff_t *ldb,
11074 ptrdiff_t *info
11075);
11076
11077/* Source: dppcon.f */
11078#define dppcon FORTRAN_WRAPPER(dppcon)
11079extern void dppcon(
11080 const char *uplo,
11081 const ptrdiff_t *n,
11082 const double *ap,
11083 const double *anorm,
11084 double *rcond,
11085 double *work,
11086 ptrdiff_t *iwork,
11087 ptrdiff_t *info
11088);
11089
11090/* Source: dppequ.f */
11091#define dppequ FORTRAN_WRAPPER(dppequ)
11092extern void dppequ(
11093 const char *uplo,
11094 const ptrdiff_t *n,
11095 const double *ap,
11096 double *s,
11097 double *scond,
11098 double *amax,
11099 ptrdiff_t *info
11100);
11101
11102/* Source: dpprfs.f */
11103#define dpprfs FORTRAN_WRAPPER(dpprfs)
11104extern void dpprfs(
11105 const char *uplo,
11106 const ptrdiff_t *n,
11107 const ptrdiff_t *nrhs,
11108 const double *ap,
11109 const double *afp,
11110 const double *b,
11111 const ptrdiff_t *ldb,
11112 double *x,
11113 const ptrdiff_t *ldx,
11114 double *ferr,
11115 double *berr,
11116 double *work,
11117 ptrdiff_t *iwork,
11118 ptrdiff_t *info
11119);
11120
11121/* Source: dppsv.f */
11122#define dppsv FORTRAN_WRAPPER(dppsv)
11123extern void dppsv(
11124 const char *uplo,
11125 const ptrdiff_t *n,
11126 const ptrdiff_t *nrhs,
11127 double *ap,
11128 double *b,
11129 const ptrdiff_t *ldb,
11130 ptrdiff_t *info
11131);
11132
11133/* Source: dppsvx.f */
11134#define dppsvx FORTRAN_WRAPPER(dppsvx)
11135extern void dppsvx(
11136 const char *fact,
11137 const char *uplo,
11138 const ptrdiff_t *n,
11139 const ptrdiff_t *nrhs,
11140 double *ap,
11141 double *afp,
11142 char *equed,
11143 double *s,
11144 double *b,
11145 const ptrdiff_t *ldb,
11146 double *x,
11147 const ptrdiff_t *ldx,
11148 double *rcond,
11149 double *ferr,
11150 double *berr,
11151 double *work,
11152 ptrdiff_t *iwork,
11153 ptrdiff_t *info
11154);
11155
11156/* Source: dpptrf.f */
11157#define dpptrf FORTRAN_WRAPPER(dpptrf)
11158extern void dpptrf(
11159 const char *uplo,
11160 const ptrdiff_t *n,
11161 double *ap,
11162 ptrdiff_t *info
11163);
11164
11165/* Source: dpptri.f */
11166#define dpptri FORTRAN_WRAPPER(dpptri)
11167extern void dpptri(
11168 const char *uplo,
11169 const ptrdiff_t *n,
11170 double *ap,
11171 ptrdiff_t *info
11172);
11173
11174/* Source: dpptrs.f */
11175#define dpptrs FORTRAN_WRAPPER(dpptrs)
11176extern void dpptrs(
11177 const char *uplo,
11178 const ptrdiff_t *n,
11179 const ptrdiff_t *nrhs,
11180 const double *ap,
11181 double *b,
11182 const ptrdiff_t *ldb,
11183 ptrdiff_t *info
11184);
11185
11186/* Source: dpstf2.f */
11187#define dpstf2 FORTRAN_WRAPPER(dpstf2)
11188extern void dpstf2(
11189 const char *uplo,
11190 const ptrdiff_t *n,
11191 double *a,
11192 const ptrdiff_t *lda,
11193 ptrdiff_t *piv,
11194 ptrdiff_t *rank,
11195 const double *tol,
11196 double *work,
11197 ptrdiff_t *info
11198);
11199
11200/* Source: dpstrf.f */
11201#define dpstrf FORTRAN_WRAPPER(dpstrf)
11202extern void dpstrf(
11203 const char *uplo,
11204 const ptrdiff_t *n,
11205 double *a,
11206 const ptrdiff_t *lda,
11207 ptrdiff_t *piv,
11208 ptrdiff_t *rank,
11209 const double *tol,
11210 double *work,
11211 ptrdiff_t *info
11212);
11213
11214/* Source: dptcon.f */
11215#define dptcon FORTRAN_WRAPPER(dptcon)
11216extern void dptcon(
11217 const ptrdiff_t *n,
11218 const double *d,
11219 const double *e,
11220 const double *anorm,
11221 double *rcond,
11222 double *work,
11223 ptrdiff_t *info
11224);
11225
11226/* Source: dpteqr.f */
11227#define dpteqr FORTRAN_WRAPPER(dpteqr)
11228extern void dpteqr(
11229 const char *compz,
11230 const ptrdiff_t *n,
11231 double *d,
11232 double *e,
11233 double *z,
11234 const ptrdiff_t *ldz,
11235 double *work,
11236 ptrdiff_t *info
11237);
11238
11239/* Source: dptrfs.f */
11240#define dptrfs FORTRAN_WRAPPER(dptrfs)
11241extern void dptrfs(
11242 const ptrdiff_t *n,
11243 const ptrdiff_t *nrhs,
11244 const double *d,
11245 const double *e,
11246 const double *df,
11247 const double *ef,
11248 const double *b,
11249 const ptrdiff_t *ldb,
11250 double *x,
11251 const ptrdiff_t *ldx,
11252 double *ferr,
11253 double *berr,
11254 double *work,
11255 ptrdiff_t *info
11256);
11257
11258/* Source: dptsv.f */
11259#define dptsv FORTRAN_WRAPPER(dptsv)
11260extern void dptsv(
11261 const ptrdiff_t *n,
11262 const ptrdiff_t *nrhs,
11263 double *d,
11264 double *e,
11265 double *b,
11266 const ptrdiff_t *ldb,
11267 ptrdiff_t *info
11268);
11269
11270/* Source: dptsvx.f */
11271#define dptsvx FORTRAN_WRAPPER(dptsvx)
11272extern void dptsvx(
11273 const char *fact,
11274 const ptrdiff_t *n,
11275 const ptrdiff_t *nrhs,
11276 const double *d,
11277 const double *e,
11278 double *df,
11279 double *ef,
11280 const double *b,
11281 const ptrdiff_t *ldb,
11282 double *x,
11283 const ptrdiff_t *ldx,
11284 double *rcond,
11285 double *ferr,
11286 double *berr,
11287 double *work,
11288 ptrdiff_t *info
11289);
11290
11291/* Source: dpttrf.f */
11292#define dpttrf FORTRAN_WRAPPER(dpttrf)
11293extern void dpttrf(
11294 const ptrdiff_t *n,
11295 double *d,
11296 double *e,
11297 ptrdiff_t *info
11298);
11299
11300/* Source: dpttrs.f */
11301#define dpttrs FORTRAN_WRAPPER(dpttrs)
11302extern void dpttrs(
11303 const ptrdiff_t *n,
11304 const ptrdiff_t *nrhs,
11305 const double *d,
11306 const double *e,
11307 double *b,
11308 const ptrdiff_t *ldb,
11309 ptrdiff_t *info
11310);
11311
11312/* Source: dptts2.f */
11313#define dptts2 FORTRAN_WRAPPER(dptts2)
11314extern void dptts2(
11315 const ptrdiff_t *n,
11316 const ptrdiff_t *nrhs,
11317 const double *d,
11318 const double *e,
11319 double *b,
11320 const ptrdiff_t *ldb
11321);
11322
11323/* Source: drscl.f */
11324#define drscl FORTRAN_WRAPPER(drscl)
11325extern void drscl(
11326 const ptrdiff_t *n,
11327 const double *sa,
11328 double *sx,
11329 const ptrdiff_t *incx
11330);
11331
11332/* Source: dsbev.f */
11333#define dsbev FORTRAN_WRAPPER(dsbev)
11334extern void dsbev(
11335 const char *jobz,
11336 const char *uplo,
11337 const ptrdiff_t *n,
11338 const ptrdiff_t *kd,
11339 double *ab,
11340 const ptrdiff_t *ldab,
11341 double *w,
11342 double *z,
11343 const ptrdiff_t *ldz,
11344 double *work,
11345 ptrdiff_t *info
11346);
11347
11348/* Source: dsbevd.f */
11349#define dsbevd FORTRAN_WRAPPER(dsbevd)
11350extern void dsbevd(
11351 const char *jobz,
11352 const char *uplo,
11353 const ptrdiff_t *n,
11354 const ptrdiff_t *kd,
11355 double *ab,
11356 const ptrdiff_t *ldab,
11357 double *w,
11358 double *z,
11359 const ptrdiff_t *ldz,
11360 double *work,
11361 const ptrdiff_t *lwork,
11362 ptrdiff_t *iwork,
11363 const ptrdiff_t *liwork,
11364 ptrdiff_t *info
11365);
11366
11367/* Source: dsbevx.f */
11368#define dsbevx FORTRAN_WRAPPER(dsbevx)
11369extern void dsbevx(
11370 const char *jobz,
11371 const char *range,
11372 const char *uplo,
11373 const ptrdiff_t *n,
11374 const ptrdiff_t *kd,
11375 double *ab,
11376 const ptrdiff_t *ldab,
11377 double *q,
11378 const ptrdiff_t *ldq,
11379 const double *vl,
11380 const double *vu,
11381 const ptrdiff_t *il,
11382 const ptrdiff_t *iu,
11383 const double *abstol,
11384 ptrdiff_t *m,
11385 double *w,
11386 double *z,
11387 const ptrdiff_t *ldz,
11388 double *work,
11389 ptrdiff_t *iwork,
11390 ptrdiff_t *ifail,
11391 ptrdiff_t *info
11392);
11393
11394/* Source: dsbgst.f */
11395#define dsbgst FORTRAN_WRAPPER(dsbgst)
11396extern void dsbgst(
11397 const char *vect,
11398 const char *uplo,
11399 const ptrdiff_t *n,
11400 const ptrdiff_t *ka,
11401 const ptrdiff_t *kb,
11402 double *ab,
11403 const ptrdiff_t *ldab,
11404 const double *bb,
11405 const ptrdiff_t *ldbb,
11406 double *x,
11407 const ptrdiff_t *ldx,
11408 double *work,
11409 ptrdiff_t *info
11410);
11411
11412/* Source: dsbgv.f */
11413#define dsbgv FORTRAN_WRAPPER(dsbgv)
11414extern void dsbgv(
11415 const char *jobz,
11416 const char *uplo,
11417 const ptrdiff_t *n,
11418 const ptrdiff_t *ka,
11419 const ptrdiff_t *kb,
11420 double *ab,
11421 const ptrdiff_t *ldab,
11422 double *bb,
11423 const ptrdiff_t *ldbb,
11424 double *w,
11425 double *z,
11426 const ptrdiff_t *ldz,
11427 double *work,
11428 ptrdiff_t *info
11429);
11430
11431/* Source: dsbgvd.f */
11432#define dsbgvd FORTRAN_WRAPPER(dsbgvd)
11433extern void dsbgvd(
11434 const char *jobz,
11435 const char *uplo,
11436 const ptrdiff_t *n,
11437 const ptrdiff_t *ka,
11438 const ptrdiff_t *kb,
11439 double *ab,
11440 const ptrdiff_t *ldab,
11441 double *bb,
11442 const ptrdiff_t *ldbb,
11443 double *w,
11444 double *z,
11445 const ptrdiff_t *ldz,
11446 double *work,
11447 const ptrdiff_t *lwork,
11448 ptrdiff_t *iwork,
11449 const ptrdiff_t *liwork,
11450 ptrdiff_t *info
11451);
11452
11453/* Source: dsbgvx.f */
11454#define dsbgvx FORTRAN_WRAPPER(dsbgvx)
11455extern void dsbgvx(
11456 const char *jobz,
11457 const char *range,
11458 const char *uplo,
11459 const ptrdiff_t *n,
11460 const ptrdiff_t *ka,
11461 const ptrdiff_t *kb,
11462 double *ab,
11463 const ptrdiff_t *ldab,
11464 double *bb,
11465 const ptrdiff_t *ldbb,
11466 double *q,
11467 const ptrdiff_t *ldq,
11468 const double *vl,
11469 const double *vu,
11470 const ptrdiff_t *il,
11471 const ptrdiff_t *iu,
11472 const double *abstol,
11473 ptrdiff_t *m,
11474 double *w,
11475 double *z,
11476 const ptrdiff_t *ldz,
11477 double *work,
11478 ptrdiff_t *iwork,
11479 ptrdiff_t *ifail,
11480 ptrdiff_t *info
11481);
11482
11483/* Source: dsbtrd.f */
11484#define dsbtrd FORTRAN_WRAPPER(dsbtrd)
11485extern void dsbtrd(
11486 const char *vect,
11487 const char *uplo,
11488 const ptrdiff_t *n,
11489 const ptrdiff_t *kd,
11490 double *ab,
11491 const ptrdiff_t *ldab,
11492 double *d,
11493 double *e,
11494 double *q,
11495 const ptrdiff_t *ldq,
11496 double *work,
11497 ptrdiff_t *info
11498);
11499
11500/* Source: dsfrk.f */
11501#define dsfrk FORTRAN_WRAPPER(dsfrk)
11502extern void dsfrk(
11503 const char *transr,
11504 const char *uplo,
11505 const char *trans,
11506 const ptrdiff_t *n,
11507 const ptrdiff_t *k,
11508 const double *alpha,
11509 const double *a,
11510 const ptrdiff_t *lda,
11511 const double *beta,
11512 double *c
11513);
11514
11515/* Source: dsgesv.f */
11516#define dsgesv FORTRAN_WRAPPER(dsgesv)
11517extern void dsgesv(
11518 const ptrdiff_t *n,
11519 const ptrdiff_t *nrhs,
11520 double *a,
11521 const ptrdiff_t *lda,
11522 ptrdiff_t *ipiv,
11523 const double *b,
11524 const ptrdiff_t *ldb,
11525 double *x,
11526 const ptrdiff_t *ldx,
11527 double *work,
11528 float *swork,
11529 ptrdiff_t *iter,
11530 ptrdiff_t *info
11531);
11532
11533/* Source: dspcon.f */
11534#define dspcon FORTRAN_WRAPPER(dspcon)
11535extern void dspcon(
11536 const char *uplo,
11537 const ptrdiff_t *n,
11538 const double *ap,
11539 const ptrdiff_t *ipiv,
11540 const double *anorm,
11541 double *rcond,
11542 double *work,
11543 ptrdiff_t *iwork,
11544 ptrdiff_t *info
11545);
11546
11547/* Source: dspev.f */
11548#define dspev FORTRAN_WRAPPER(dspev)
11549extern void dspev(
11550 const char *jobz,
11551 const char *uplo,
11552 const ptrdiff_t *n,
11553 double *ap,
11554 double *w,
11555 double *z,
11556 const ptrdiff_t *ldz,
11557 double *work,
11558 ptrdiff_t *info
11559);
11560
11561/* Source: dspevd.f */
11562#define dspevd FORTRAN_WRAPPER(dspevd)
11563extern void dspevd(
11564 const char *jobz,
11565 const char *uplo,
11566 const ptrdiff_t *n,
11567 double *ap,
11568 double *w,
11569 double *z,
11570 const ptrdiff_t *ldz,
11571 double *work,
11572 const ptrdiff_t *lwork,
11573 ptrdiff_t *iwork,
11574 const ptrdiff_t *liwork,
11575 ptrdiff_t *info
11576);
11577
11578/* Source: dspevx.f */
11579#define dspevx FORTRAN_WRAPPER(dspevx)
11580extern void dspevx(
11581 const char *jobz,
11582 const char *range,
11583 const char *uplo,
11584 const ptrdiff_t *n,
11585 double *ap,
11586 const double *vl,
11587 const double *vu,
11588 const ptrdiff_t *il,
11589 const ptrdiff_t *iu,
11590 const double *abstol,
11591 ptrdiff_t *m,
11592 double *w,
11593 double *z,
11594 const ptrdiff_t *ldz,
11595 double *work,
11596 ptrdiff_t *iwork,
11597 ptrdiff_t *ifail,
11598 ptrdiff_t *info
11599);
11600
11601/* Source: dspgst.f */
11602#define dspgst FORTRAN_WRAPPER(dspgst)
11603extern void dspgst(
11604 const ptrdiff_t *itype,
11605 const char *uplo,
11606 const ptrdiff_t *n,
11607 double *ap,
11608 const double *bp,
11609 ptrdiff_t *info
11610);
11611
11612/* Source: dspgv.f */
11613#define dspgv FORTRAN_WRAPPER(dspgv)
11614extern void dspgv(
11615 const ptrdiff_t *itype,
11616 const char *jobz,
11617 const char *uplo,
11618 const ptrdiff_t *n,
11619 double *ap,
11620 double *bp,
11621 double *w,
11622 double *z,
11623 const ptrdiff_t *ldz,
11624 double *work,
11625 ptrdiff_t *info
11626);
11627
11628/* Source: dspgvd.f */
11629#define dspgvd FORTRAN_WRAPPER(dspgvd)
11630extern void dspgvd(
11631 const ptrdiff_t *itype,
11632 const char *jobz,
11633 const char *uplo,
11634 const ptrdiff_t *n,
11635 double *ap,
11636 double *bp,
11637 double *w,
11638 double *z,
11639 const ptrdiff_t *ldz,
11640 double *work,
11641 const ptrdiff_t *lwork,
11642 ptrdiff_t *iwork,
11643 const ptrdiff_t *liwork,
11644 ptrdiff_t *info
11645);
11646
11647/* Source: dspgvx.f */
11648#define dspgvx FORTRAN_WRAPPER(dspgvx)
11649extern void dspgvx(
11650 const ptrdiff_t *itype,
11651 const char *jobz,
11652 const char *range,
11653 const char *uplo,
11654 const ptrdiff_t *n,
11655 double *ap,
11656 double *bp,
11657 const double *vl,
11658 const double *vu,
11659 const ptrdiff_t *il,
11660 const ptrdiff_t *iu,
11661 const double *abstol,
11662 ptrdiff_t *m,
11663 double *w,
11664 double *z,
11665 const ptrdiff_t *ldz,
11666 double *work,
11667 ptrdiff_t *iwork,
11668 ptrdiff_t *ifail,
11669 ptrdiff_t *info
11670);
11671
11672/* Source: dsposv.f */
11673#define dsposv FORTRAN_WRAPPER(dsposv)
11674extern void dsposv(
11675 const char *uplo,
11676 const ptrdiff_t *n,
11677 const ptrdiff_t *nrhs,
11678 double *a,
11679 const ptrdiff_t *lda,
11680 const double *b,
11681 const ptrdiff_t *ldb,
11682 double *x,
11683 const ptrdiff_t *ldx,
11684 double *work,
11685 float *swork,
11686 ptrdiff_t *iter,
11687 ptrdiff_t *info
11688);
11689
11690/* Source: dsprfs.f */
11691#define dsprfs FORTRAN_WRAPPER(dsprfs)
11692extern void dsprfs(
11693 const char *uplo,
11694 const ptrdiff_t *n,
11695 const ptrdiff_t *nrhs,
11696 const double *ap,
11697 const double *afp,
11698 const ptrdiff_t *ipiv,
11699 const double *b,
11700 const ptrdiff_t *ldb,
11701 double *x,
11702 const ptrdiff_t *ldx,
11703 double *ferr,
11704 double *berr,
11705 double *work,
11706 ptrdiff_t *iwork,
11707 ptrdiff_t *info
11708);
11709
11710/* Source: dspsv.f */
11711#define dspsv FORTRAN_WRAPPER(dspsv)
11712extern void dspsv(
11713 const char *uplo,
11714 const ptrdiff_t *n,
11715 const ptrdiff_t *nrhs,
11716 double *ap,
11717 ptrdiff_t *ipiv,
11718 double *b,
11719 const ptrdiff_t *ldb,
11720 ptrdiff_t *info
11721);
11722
11723/* Source: dspsvx.f */
11724#define dspsvx FORTRAN_WRAPPER(dspsvx)
11725extern void dspsvx(
11726 const char *fact,
11727 const char *uplo,
11728 const ptrdiff_t *n,
11729 const ptrdiff_t *nrhs,
11730 const double *ap,
11731 double *afp,
11732 ptrdiff_t *ipiv,
11733 const double *b,
11734 const ptrdiff_t *ldb,
11735 double *x,
11736 const ptrdiff_t *ldx,
11737 double *rcond,
11738 double *ferr,
11739 double *berr,
11740 double *work,
11741 ptrdiff_t *iwork,
11742 ptrdiff_t *info
11743);
11744
11745/* Source: dsptrd.f */
11746#define dsptrd FORTRAN_WRAPPER(dsptrd)
11747extern void dsptrd(
11748 const char *uplo,
11749 const ptrdiff_t *n,
11750 double *ap,
11751 double *d,
11752 double *e,
11753 double *tau,
11754 ptrdiff_t *info
11755);
11756
11757/* Source: dsptrf.f */
11758#define dsptrf FORTRAN_WRAPPER(dsptrf)
11759extern void dsptrf(
11760 const char *uplo,
11761 const ptrdiff_t *n,
11762 double *ap,
11763 ptrdiff_t *ipiv,
11764 ptrdiff_t *info
11765);
11766
11767/* Source: dsptri.f */
11768#define dsptri FORTRAN_WRAPPER(dsptri)
11769extern void dsptri(
11770 const char *uplo,
11771 const ptrdiff_t *n,
11772 double *ap,
11773 const ptrdiff_t *ipiv,
11774 double *work,
11775 ptrdiff_t *info
11776);
11777
11778/* Source: dsptrs.f */
11779#define dsptrs FORTRAN_WRAPPER(dsptrs)
11780extern void dsptrs(
11781 const char *uplo,
11782 const ptrdiff_t *n,
11783 const ptrdiff_t *nrhs,
11784 const double *ap,
11785 const ptrdiff_t *ipiv,
11786 double *b,
11787 const ptrdiff_t *ldb,
11788 ptrdiff_t *info
11789);
11790
11791/* Source: dstebz.f */
11792#define dstebz FORTRAN_WRAPPER(dstebz)
11793extern void dstebz(
11794 const char *range,
11795 const char *order,
11796 const ptrdiff_t *n,
11797 const double *vl,
11798 const double *vu,
11799 const ptrdiff_t *il,
11800 const ptrdiff_t *iu,
11801 const double *abstol,
11802 const double *d,
11803 const double *e,
11804 ptrdiff_t *m,
11805 ptrdiff_t *nsplit,
11806 double *w,
11807 ptrdiff_t *iblock,
11808 ptrdiff_t *isplit,
11809 double *work,
11810 ptrdiff_t *iwork,
11811 ptrdiff_t *info
11812);
11813
11814/* Source: dstedc.f */
11815#define dstedc FORTRAN_WRAPPER(dstedc)
11816extern void dstedc(
11817 const char *compz,
11818 const ptrdiff_t *n,
11819 double *d,
11820 double *e,
11821 double *z,
11822 const ptrdiff_t *ldz,
11823 double *work,
11824 const ptrdiff_t *lwork,
11825 ptrdiff_t *iwork,
11826 const ptrdiff_t *liwork,
11827 ptrdiff_t *info
11828);
11829
11830/* Source: dstegr.f */
11831#define dstegr FORTRAN_WRAPPER(dstegr)
11832extern void dstegr(
11833 const char *jobz,
11834 const char *range,
11835 const ptrdiff_t *n,
11836 double *d,
11837 double *e,
11838 const double *vl,
11839 const double *vu,
11840 const ptrdiff_t *il,
11841 const ptrdiff_t *iu,
11842 const double *abstol,
11843 ptrdiff_t *m,
11844 double *w,
11845 double *z,
11846 const ptrdiff_t *ldz,
11847 ptrdiff_t *isuppz,
11848 double *work,
11849 const ptrdiff_t *lwork,
11850 ptrdiff_t *iwork,
11851 const ptrdiff_t *liwork,
11852 ptrdiff_t *info
11853);
11854
11855/* Source: dstein.f */
11856#define dstein FORTRAN_WRAPPER(dstein)
11857extern void dstein(
11858 const ptrdiff_t *n,
11859 const double *d,
11860 const double *e,
11861 const ptrdiff_t *m,
11862 const double *w,
11863 const ptrdiff_t *iblock,
11864 const ptrdiff_t *isplit,
11865 double *z,
11866 const ptrdiff_t *ldz,
11867 double *work,
11868 ptrdiff_t *iwork,
11869 ptrdiff_t *ifail,
11870 ptrdiff_t *info
11871);
11872
11873/* Source: dstemr.f */
11874#define dstemr FORTRAN_WRAPPER(dstemr)
11875extern void dstemr(
11876 const char *jobz,
11877 const char *range,
11878 const ptrdiff_t *n,
11879 double *d,
11880 double *e,
11881 const double *vl,
11882 const double *vu,
11883 const ptrdiff_t *il,
11884 const ptrdiff_t *iu,
11885 ptrdiff_t *m,
11886 double *w,
11887 double *z,
11888 const ptrdiff_t *ldz,
11889 const ptrdiff_t *nzc,
11890 ptrdiff_t *isuppz,
11891 ptrdiff_t *tryrac,
11892 double *work,
11893 const ptrdiff_t *lwork,
11894 ptrdiff_t *iwork,
11895 const ptrdiff_t *liwork,
11896 ptrdiff_t *info
11897);
11898
11899/* Source: dsteqr.f */
11900#define dsteqr FORTRAN_WRAPPER(dsteqr)
11901extern void dsteqr(
11902 const char *compz,
11903 const ptrdiff_t *n,
11904 double *d,
11905 double *e,
11906 double *z,
11907 const ptrdiff_t *ldz,
11908 double *work,
11909 ptrdiff_t *info
11910);
11911
11912/* Source: dsterf.f */
11913#define dsterf FORTRAN_WRAPPER(dsterf)
11914extern void dsterf(
11915 const ptrdiff_t *n,
11916 double *d,
11917 double *e,
11918 ptrdiff_t *info
11919);
11920
11921/* Source: dstev.f */
11922#define dstev FORTRAN_WRAPPER(dstev)
11923extern void dstev(
11924 const char *jobz,
11925 const ptrdiff_t *n,
11926 double *d,
11927 double *e,
11928 double *z,
11929 const ptrdiff_t *ldz,
11930 double *work,
11931 ptrdiff_t *info
11932);
11933
11934/* Source: dstevd.f */
11935#define dstevd FORTRAN_WRAPPER(dstevd)
11936extern void dstevd(
11937 const char *jobz,
11938 const ptrdiff_t *n,
11939 double *d,
11940 double *e,
11941 double *z,
11942 const ptrdiff_t *ldz,
11943 double *work,
11944 const ptrdiff_t *lwork,
11945 ptrdiff_t *iwork,
11946 const ptrdiff_t *liwork,
11947 ptrdiff_t *info
11948);
11949
11950/* Source: dstevr.f */
11951#define dstevr FORTRAN_WRAPPER(dstevr)
11952extern void dstevr(
11953 const char *jobz,
11954 const char *range,
11955 const ptrdiff_t *n,
11956 double *d,
11957 double *e,
11958 const double *vl,
11959 const double *vu,
11960 const ptrdiff_t *il,
11961 const ptrdiff_t *iu,
11962 const double *abstol,
11963 ptrdiff_t *m,
11964 double *w,
11965 double *z,
11966 const ptrdiff_t *ldz,
11967 ptrdiff_t *isuppz,
11968 double *work,
11969 const ptrdiff_t *lwork,
11970 ptrdiff_t *iwork,
11971 const ptrdiff_t *liwork,
11972 ptrdiff_t *info
11973);
11974
11975/* Source: dstevx.f */
11976#define dstevx FORTRAN_WRAPPER(dstevx)
11977extern void dstevx(
11978 const char *jobz,
11979 const char *range,
11980 const ptrdiff_t *n,
11981 double *d,
11982 double *e,
11983 const double *vl,
11984 const double *vu,
11985 const ptrdiff_t *il,
11986 const ptrdiff_t *iu,
11987 const double *abstol,
11988 ptrdiff_t *m,
11989 double *w,
11990 double *z,
11991 const ptrdiff_t *ldz,
11992 double *work,
11993 ptrdiff_t *iwork,
11994 ptrdiff_t *ifail,
11995 ptrdiff_t *info
11996);
11997
11998/* Source: dsycon.f */
11999#define dsycon FORTRAN_WRAPPER(dsycon)
12000extern void dsycon(
12001 const char *uplo,
12002 const ptrdiff_t *n,
12003 const double *a,
12004 const ptrdiff_t *lda,
12005 const ptrdiff_t *ipiv,
12006 const double *anorm,
12007 double *rcond,
12008 double *work,
12009 ptrdiff_t *iwork,
12010 ptrdiff_t *info
12011);
12012
12013/* Source: dsycon_rook.f */
12014#define dsycon_rook FORTRAN_WRAPPER(dsycon_rook)
12015extern void dsycon_rook(
12016 const char *uplo,
12017 const ptrdiff_t *n,
12018 const double *a,
12019 const ptrdiff_t *lda,
12020 const ptrdiff_t *ipiv,
12021 const double *anorm,
12022 double *rcond,
12023 double *work,
12024 ptrdiff_t *iwork,
12025 ptrdiff_t *info
12026);
12027
12028/* Source: dsyconv.f */
12029#define dsyconv FORTRAN_WRAPPER(dsyconv)
12030extern void dsyconv(
12031 const char *uplo,
12032 const char *way,
12033 const ptrdiff_t *n,
12034 double *a,
12035 const ptrdiff_t *lda,
12036 const ptrdiff_t *ipiv,
12037 double *work,
12038 ptrdiff_t *info
12039);
12040
12041/* Source: dsyequb.f */
12042#define dsyequb FORTRAN_WRAPPER(dsyequb)
12043extern void dsyequb(
12044 char *uplo,
12045 const ptrdiff_t *n,
12046 const double *a,
12047 const ptrdiff_t *lda,
12048 double *s,
12049 double *scond,
12050 double *amax,
12051 double *work,
12052 ptrdiff_t *info
12053);
12054
12055/* Source: dsyev.f */
12056#define dsyev FORTRAN_WRAPPER(dsyev)
12057extern void dsyev(
12058 const char *jobz,
12059 const char *uplo,
12060 const ptrdiff_t *n,
12061 double *a,
12062 const ptrdiff_t *lda,
12063 double *w,
12064 double *work,
12065 const ptrdiff_t *lwork,
12066 ptrdiff_t *info
12067);
12068
12069/* Source: dsyevd.f */
12070#define dsyevd FORTRAN_WRAPPER(dsyevd)
12071extern void dsyevd(
12072 const char *jobz,
12073 const char *uplo,
12074 const ptrdiff_t *n,
12075 double *a,
12076 const ptrdiff_t *lda,
12077 double *w,
12078 double *work,
12079 const ptrdiff_t *lwork,
12080 ptrdiff_t *iwork,
12081 const ptrdiff_t *liwork,
12082 ptrdiff_t *info
12083);
12084
12085/* Source: dsyevr.f */
12086#define dsyevr FORTRAN_WRAPPER(dsyevr)
12087extern void dsyevr(
12088 const char *jobz,
12089 const char *range,
12090 const char *uplo,
12091 const ptrdiff_t *n,
12092 double *a,
12093 const ptrdiff_t *lda,
12094 const double *vl,
12095 const double *vu,
12096 const ptrdiff_t *il,
12097 const ptrdiff_t *iu,
12098 const double *abstol,
12099 ptrdiff_t *m,
12100 double *w,
12101 double *z,
12102 const ptrdiff_t *ldz,
12103 ptrdiff_t *isuppz,
12104 double *work,
12105 const ptrdiff_t *lwork,
12106 ptrdiff_t *iwork,
12107 const ptrdiff_t *liwork,
12108 ptrdiff_t *info
12109);
12110
12111/* Source: dsyevx.f */
12112#define dsyevx FORTRAN_WRAPPER(dsyevx)
12113extern void dsyevx(
12114 const char *jobz,
12115 const char *range,
12116 const char *uplo,
12117 const ptrdiff_t *n,
12118 double *a,
12119 const ptrdiff_t *lda,
12120 const double *vl,
12121 const double *vu,
12122 const ptrdiff_t *il,
12123 const ptrdiff_t *iu,
12124 const double *abstol,
12125 ptrdiff_t *m,
12126 double *w,
12127 double *z,
12128 const ptrdiff_t *ldz,
12129 double *work,
12130 const ptrdiff_t *lwork,
12131 ptrdiff_t *iwork,
12132 ptrdiff_t *ifail,
12133 ptrdiff_t *info
12134);
12135
12136/* Source: dsygs2.f */
12137#define dsygs2 FORTRAN_WRAPPER(dsygs2)
12138extern void dsygs2(
12139 const ptrdiff_t *itype,
12140 const char *uplo,
12141 const ptrdiff_t *n,
12142 double *a,
12143 const ptrdiff_t *lda,
12144 const double *b,
12145 const ptrdiff_t *ldb,
12146 ptrdiff_t *info
12147);
12148
12149/* Source: dsygst.f */
12150#define dsygst FORTRAN_WRAPPER(dsygst)
12151extern void dsygst(
12152 const ptrdiff_t *itype,
12153 const char *uplo,
12154 const ptrdiff_t *n,
12155 double *a,
12156 const ptrdiff_t *lda,
12157 const double *b,
12158 const ptrdiff_t *ldb,
12159 ptrdiff_t *info
12160);
12161
12162/* Source: dsygv.f */
12163#define dsygv FORTRAN_WRAPPER(dsygv)
12164extern void dsygv(
12165 const ptrdiff_t *itype,
12166 const char *jobz,
12167 const char *uplo,
12168 const ptrdiff_t *n,
12169 double *a,
12170 const ptrdiff_t *lda,
12171 double *b,
12172 const ptrdiff_t *ldb,
12173 double *w,
12174 double *work,
12175 const ptrdiff_t *lwork,
12176 ptrdiff_t *info
12177);
12178
12179/* Source: dsygvd.f */
12180#define dsygvd FORTRAN_WRAPPER(dsygvd)
12181extern void dsygvd(
12182 const ptrdiff_t *itype,
12183 const char *jobz,
12184 const char *uplo,
12185 const ptrdiff_t *n,
12186 double *a,
12187 const ptrdiff_t *lda,
12188 double *b,
12189 const ptrdiff_t *ldb,
12190 double *w,
12191 double *work,
12192 const ptrdiff_t *lwork,
12193 ptrdiff_t *iwork,
12194 const ptrdiff_t *liwork,
12195 ptrdiff_t *info
12196);
12197
12198/* Source: dsygvx.f */
12199#define dsygvx FORTRAN_WRAPPER(dsygvx)
12200extern void dsygvx(
12201 const ptrdiff_t *itype,
12202 const char *jobz,
12203 const char *range,
12204 const char *uplo,
12205 const ptrdiff_t *n,
12206 double *a,
12207 const ptrdiff_t *lda,
12208 double *b,
12209 const ptrdiff_t *ldb,
12210 const double *vl,
12211 const double *vu,
12212 const ptrdiff_t *il,
12213 const ptrdiff_t *iu,
12214 const double *abstol,
12215 ptrdiff_t *m,
12216 double *w,
12217 double *z,
12218 const ptrdiff_t *ldz,
12219 double *work,
12220 const ptrdiff_t *lwork,
12221 ptrdiff_t *iwork,
12222 ptrdiff_t *ifail,
12223 ptrdiff_t *info
12224);
12225
12226/* Source: dsyrfs.f */
12227#define dsyrfs FORTRAN_WRAPPER(dsyrfs)
12228extern void dsyrfs(
12229 const char *uplo,
12230 const ptrdiff_t *n,
12231 const ptrdiff_t *nrhs,
12232 const double *a,
12233 const ptrdiff_t *lda,
12234 const double *af,
12235 const ptrdiff_t *ldaf,
12236 const ptrdiff_t *ipiv,
12237 const double *b,
12238 const ptrdiff_t *ldb,
12239 double *x,
12240 const ptrdiff_t *ldx,
12241 double *ferr,
12242 double *berr,
12243 double *work,
12244 ptrdiff_t *iwork,
12245 ptrdiff_t *info
12246);
12247
12248/* Source: dsysv.f */
12249#define dsysv FORTRAN_WRAPPER(dsysv)
12250extern void dsysv(
12251 const char *uplo,
12252 const ptrdiff_t *n,
12253 const ptrdiff_t *nrhs,
12254 double *a,
12255 const ptrdiff_t *lda,
12256 ptrdiff_t *ipiv,
12257 double *b,
12258 const ptrdiff_t *ldb,
12259 double *work,
12260 const ptrdiff_t *lwork,
12261 ptrdiff_t *info
12262);
12263
12264/* Source: dsysv_rook.f */
12265#define dsysv_rook FORTRAN_WRAPPER(dsysv_rook)
12266extern void dsysv_rook(
12267 const char *uplo,
12268 const ptrdiff_t *n,
12269 const ptrdiff_t *nrhs,
12270 double *a,
12271 const ptrdiff_t *lda,
12272 ptrdiff_t *ipiv,
12273 double *b,
12274 const ptrdiff_t *ldb,
12275 double *work,
12276 const ptrdiff_t *lwork,
12277 ptrdiff_t *info
12278);
12279
12280/* Source: dsysvx.f */
12281#define dsysvx FORTRAN_WRAPPER(dsysvx)
12282extern void dsysvx(
12283 const char *fact,
12284 const char *uplo,
12285 const ptrdiff_t *n,
12286 const ptrdiff_t *nrhs,
12287 const double *a,
12288 const ptrdiff_t *lda,
12289 double *af,
12290 const ptrdiff_t *ldaf,
12291 ptrdiff_t *ipiv,
12292 const double *b,
12293 const ptrdiff_t *ldb,
12294 double *x,
12295 const ptrdiff_t *ldx,
12296 double *rcond,
12297 double *ferr,
12298 double *berr,
12299 double *work,
12300 const ptrdiff_t *lwork,
12301 ptrdiff_t *iwork,
12302 ptrdiff_t *info
12303);
12304
12305/* Source: dsyswapr.f */
12306#define dsyswapr FORTRAN_WRAPPER(dsyswapr)
12307extern void dsyswapr(
12308 const char *uplo,
12309 const ptrdiff_t *n,
12310 double *a,
12311 const ptrdiff_t *lda,
12312 const ptrdiff_t *i1,
12313 const ptrdiff_t *i2
12314);
12315
12316/* Source: dsytd2.f */
12317#define dsytd2 FORTRAN_WRAPPER(dsytd2)
12318extern void dsytd2(
12319 const char *uplo,
12320 const ptrdiff_t *n,
12321 double *a,
12322 const ptrdiff_t *lda,
12323 double *d,
12324 double *e,
12325 double *tau,
12326 ptrdiff_t *info
12327);
12328
12329/* Source: dsytf2.f */
12330#define dsytf2 FORTRAN_WRAPPER(dsytf2)
12331extern void dsytf2(
12332 const char *uplo,
12333 const ptrdiff_t *n,
12334 double *a,
12335 const ptrdiff_t *lda,
12336 ptrdiff_t *ipiv,
12337 ptrdiff_t *info
12338);
12339
12340/* Source: dsytf2_rook.f */
12341#define dsytf2_rook FORTRAN_WRAPPER(dsytf2_rook)
12342extern void dsytf2_rook(
12343 const char *uplo,
12344 const ptrdiff_t *n,
12345 double *a,
12346 const ptrdiff_t *lda,
12347 ptrdiff_t *ipiv,
12348 ptrdiff_t *info
12349);
12350
12351/* Source: dsytrd.f */
12352#define dsytrd FORTRAN_WRAPPER(dsytrd)
12353extern void dsytrd(
12354 const char *uplo,
12355 const ptrdiff_t *n,
12356 double *a,
12357 const ptrdiff_t *lda,
12358 double *d,
12359 double *e,
12360 double *tau,
12361 double *work,
12362 const ptrdiff_t *lwork,
12363 ptrdiff_t *info
12364);
12365
12366/* Source: dsytrf.f */
12367#define dsytrf FORTRAN_WRAPPER(dsytrf)
12368extern void dsytrf(
12369 const char *uplo,
12370 const ptrdiff_t *n,
12371 double *a,
12372 const ptrdiff_t *lda,
12373 ptrdiff_t *ipiv,
12374 double *work,
12375 const ptrdiff_t *lwork,
12376 ptrdiff_t *info
12377);
12378
12379/* Source: dsytrf_rook.f */
12380#define dsytrf_rook FORTRAN_WRAPPER(dsytrf_rook)
12381extern void dsytrf_rook(
12382 const char *uplo,
12383 const ptrdiff_t *n,
12384 double *a,
12385 const ptrdiff_t *lda,
12386 ptrdiff_t *ipiv,
12387 double *work,
12388 const ptrdiff_t *lwork,
12389 ptrdiff_t *info
12390);
12391
12392/* Source: dsytri.f */
12393#define dsytri FORTRAN_WRAPPER(dsytri)
12394extern void dsytri(
12395 const char *uplo,
12396 const ptrdiff_t *n,
12397 double *a,
12398 const ptrdiff_t *lda,
12399 const ptrdiff_t *ipiv,
12400 double *work,
12401 ptrdiff_t *info
12402);
12403
12404/* Source: dsytri2.f */
12405#define dsytri2 FORTRAN_WRAPPER(dsytri2)
12406extern void dsytri2(
12407 const char *uplo,
12408 const ptrdiff_t *n,
12409 double *a,
12410 const ptrdiff_t *lda,
12411 const ptrdiff_t *ipiv,
12412 double *work,
12413 const ptrdiff_t *lwork,
12414 ptrdiff_t *info
12415);
12416
12417/* Source: dsytri2x.f */
12418#define dsytri2x FORTRAN_WRAPPER(dsytri2x)
12419extern void dsytri2x(
12420 const char *uplo,
12421 const ptrdiff_t *n,
12422 double *a,
12423 const ptrdiff_t *lda,
12424 const ptrdiff_t *ipiv,
12425 double *work,
12426 ptrdiff_t *nb,
12427 ptrdiff_t *info
12428);
12429
12430/* Source: dsytri_rook.f */
12431#define dsytri_rook FORTRAN_WRAPPER(dsytri_rook)
12432extern void dsytri_rook(
12433 const char *uplo,
12434 const ptrdiff_t *n,
12435 double *a,
12436 const ptrdiff_t *lda,
12437 const ptrdiff_t *ipiv,
12438 double *work,
12439 ptrdiff_t *info
12440);
12441
12442/* Source: dsytrs.f */
12443#define dsytrs FORTRAN_WRAPPER(dsytrs)
12444extern void dsytrs(
12445 const char *uplo,
12446 const ptrdiff_t *n,
12447 const ptrdiff_t *nrhs,
12448 const double *a,
12449 const ptrdiff_t *lda,
12450 const ptrdiff_t *ipiv,
12451 double *b,
12452 const ptrdiff_t *ldb,
12453 ptrdiff_t *info
12454);
12455
12456/* Source: dsytrs2.f */
12457#define dsytrs2 FORTRAN_WRAPPER(dsytrs2)
12458extern void dsytrs2(
12459 const char *uplo,
12460 const ptrdiff_t *n,
12461 const ptrdiff_t *nrhs,
12462 const double *a,
12463 const ptrdiff_t *lda,
12464 const ptrdiff_t *ipiv,
12465 double *b,
12466 const ptrdiff_t *ldb,
12467 double *work,
12468 ptrdiff_t *info
12469);
12470
12471/* Source: dsytrs_rook.f */
12472#define dsytrs_rook FORTRAN_WRAPPER(dsytrs_rook)
12473extern void dsytrs_rook(
12474 const char *uplo,
12475 const ptrdiff_t *n,
12476 const ptrdiff_t *nrhs,
12477 const double *a,
12478 const ptrdiff_t *lda,
12479 const ptrdiff_t *ipiv,
12480 double *b,
12481 const ptrdiff_t *ldb,
12482 ptrdiff_t *info
12483);
12484
12485/* Source: dtbcon.f */
12486#define dtbcon FORTRAN_WRAPPER(dtbcon)
12487extern void dtbcon(
12488 const char *norm,
12489 const char *uplo,
12490 const char *diag,
12491 const ptrdiff_t *n,
12492 const ptrdiff_t *kd,
12493 const double *ab,
12494 const ptrdiff_t *ldab,
12495 double *rcond,
12496 double *work,
12497 ptrdiff_t *iwork,
12498 ptrdiff_t *info
12499);
12500
12501/* Source: dtbrfs.f */
12502#define dtbrfs FORTRAN_WRAPPER(dtbrfs)
12503extern void dtbrfs(
12504 const char *uplo,
12505 const char *trans,
12506 const char *diag,
12507 const ptrdiff_t *n,
12508 const ptrdiff_t *kd,
12509 const ptrdiff_t *nrhs,
12510 const double *ab,
12511 const ptrdiff_t *ldab,
12512 const double *b,
12513 const ptrdiff_t *ldb,
12514 const double *x,
12515 const ptrdiff_t *ldx,
12516 double *ferr,
12517 double *berr,
12518 double *work,
12519 ptrdiff_t *iwork,
12520 ptrdiff_t *info
12521);
12522
12523/* Source: dtbtrs.f */
12524#define dtbtrs FORTRAN_WRAPPER(dtbtrs)
12525extern void dtbtrs(
12526 const char *uplo,
12527 const char *trans,
12528 const char *diag,
12529 const ptrdiff_t *n,
12530 const ptrdiff_t *kd,
12531 const ptrdiff_t *nrhs,
12532 const double *ab,
12533 const ptrdiff_t *ldab,
12534 double *b,
12535 const ptrdiff_t *ldb,
12536 ptrdiff_t *info
12537);
12538
12539/* Source: dtfsm.f */
12540#define dtfsm FORTRAN_WRAPPER(dtfsm)
12541extern void dtfsm(
12542 const char *transr,
12543 const char *side,
12544 const char *uplo,
12545 const char *trans,
12546 const char *diag,
12547 const ptrdiff_t *m,
12548 const ptrdiff_t *n,
12549 const double *alpha,
12550 const double *a,
12551 double *b,
12552 const ptrdiff_t *ldb
12553);
12554
12555/* Source: dtftri.f */
12556#define dtftri FORTRAN_WRAPPER(dtftri)
12557extern void dtftri(
12558 const char *transr,
12559 const char *uplo,
12560 const char *diag,
12561 const ptrdiff_t *n,
12562 double *a,
12563 ptrdiff_t *info
12564);
12565
12566/* Source: dtfttp.f */
12567#define dtfttp FORTRAN_WRAPPER(dtfttp)
12568extern void dtfttp(
12569 const char *transr,
12570 const char *uplo,
12571 const ptrdiff_t *n,
12572 const double *arf,
12573 double *ap,
12574 ptrdiff_t *info
12575);
12576
12577/* Source: dtfttr.f */
12578#define dtfttr FORTRAN_WRAPPER(dtfttr)
12579extern void dtfttr(
12580 const char *transr,
12581 const char *uplo,
12582 const ptrdiff_t *n,
12583 const double *arf,
12584 double *a,
12585 const ptrdiff_t *lda,
12586 ptrdiff_t *info
12587);
12588
12589/* Source: dtgevc.f */
12590#define dtgevc FORTRAN_WRAPPER(dtgevc)
12591extern void dtgevc(
12592 const char *side,
12593 const char *howmny,
12594 const ptrdiff_t *select,
12595 const ptrdiff_t *n,
12596 const double *s,
12597 const ptrdiff_t *lds,
12598 const double *p,
12599 const ptrdiff_t *ldp,
12600 double *vl,
12601 const ptrdiff_t *ldvl,
12602 double *vr,
12603 const ptrdiff_t *ldvr,
12604 const ptrdiff_t *mm,
12605 ptrdiff_t *m,
12606 double *work,
12607 ptrdiff_t *info
12608);
12609
12610/* Source: dtgex2.f */
12611#define dtgex2 FORTRAN_WRAPPER(dtgex2)
12612extern void dtgex2(
12613 const ptrdiff_t *wantq,
12614 const ptrdiff_t *wantz,
12615 const ptrdiff_t *n,
12616 double *a,
12617 const ptrdiff_t *lda,
12618 double *b,
12619 const ptrdiff_t *ldb,
12620 double *q,
12621 const ptrdiff_t *ldq,
12622 double *z,
12623 const ptrdiff_t *ldz,
12624 const ptrdiff_t *j1_,
12625 const ptrdiff_t *n1,
12626 const ptrdiff_t *n2,
12627 double *work,
12628 const ptrdiff_t *lwork,
12629 ptrdiff_t *info
12630);
12631
12632/* Source: dtgexc.f */
12633#define dtgexc FORTRAN_WRAPPER(dtgexc)
12634extern void dtgexc(
12635 const ptrdiff_t *wantq,
12636 const ptrdiff_t *wantz,
12637 const ptrdiff_t *n,
12638 double *a,
12639 const ptrdiff_t *lda,
12640 double *b,
12641 const ptrdiff_t *ldb,
12642 double *q,
12643 const ptrdiff_t *ldq,
12644 double *z,
12645 const ptrdiff_t *ldz,
12646 ptrdiff_t *ifst,
12647 ptrdiff_t *ilst,
12648 double *work,
12649 const ptrdiff_t *lwork,
12650 ptrdiff_t *info
12651);
12652
12653/* Source: dtgsen.f */
12654#define dtgsen FORTRAN_WRAPPER(dtgsen)
12655extern void dtgsen(
12656 const ptrdiff_t *ijob,
12657 const ptrdiff_t *wantq,
12658 const ptrdiff_t *wantz,
12659 const ptrdiff_t *select,
12660 const ptrdiff_t *n,
12661 double *a,
12662 const ptrdiff_t *lda,
12663 double *b,
12664 const ptrdiff_t *ldb,
12665 double *alphar,
12666 double *alphai,
12667 double *beta,
12668 double *q,
12669 const ptrdiff_t *ldq,
12670 double *z,
12671 const ptrdiff_t *ldz,
12672 ptrdiff_t *m,
12673 double *pl,
12674 double *pr,
12675 double *dif,
12676 double *work,
12677 const ptrdiff_t *lwork,
12678 ptrdiff_t *iwork,
12679 const ptrdiff_t *liwork,
12680 ptrdiff_t *info
12681);
12682
12683/* Source: dtgsja.f */
12684#define dtgsja FORTRAN_WRAPPER(dtgsja)
12685extern void dtgsja(
12686 const char *jobu,
12687 const char *jobv,
12688 const char *jobq,
12689 const ptrdiff_t *m,
12690 const ptrdiff_t *p,
12691 const ptrdiff_t *n,
12692 const ptrdiff_t *k,
12693 const ptrdiff_t *l,
12694 double *a,
12695 const ptrdiff_t *lda,
12696 double *b,
12697 const ptrdiff_t *ldb,
12698 const double *tola,
12699 const double *tolb,
12700 double *alpha,
12701 double *beta,
12702 double *u,
12703 const ptrdiff_t *ldu,
12704 double *v,
12705 const ptrdiff_t *ldv,
12706 double *q,
12707 const ptrdiff_t *ldq,
12708 double *work,
12709 ptrdiff_t *ncycle,
12710 ptrdiff_t *info
12711);
12712
12713/* Source: dtgsna.f */
12714#define dtgsna FORTRAN_WRAPPER(dtgsna)
12715extern void dtgsna(
12716 const char *job,
12717 const char *howmny,
12718 const ptrdiff_t *select,
12719 const ptrdiff_t *n,
12720 const double *a,
12721 const ptrdiff_t *lda,
12722 const double *b,
12723 const ptrdiff_t *ldb,
12724 const double *vl,
12725 const ptrdiff_t *ldvl,
12726 const double *vr,
12727 const ptrdiff_t *ldvr,
12728 double *s,
12729 double *dif,
12730 const ptrdiff_t *mm,
12731 ptrdiff_t *m,
12732 double *work,
12733 const ptrdiff_t *lwork,
12734 ptrdiff_t *iwork,
12735 ptrdiff_t *info
12736);
12737
12738/* Source: dtgsy2.f */
12739#define dtgsy2 FORTRAN_WRAPPER(dtgsy2)
12740extern void dtgsy2(
12741 const char *trans,
12742 const ptrdiff_t *ijob,
12743 const ptrdiff_t *m,
12744 const ptrdiff_t *n,
12745 const double *a,
12746 const ptrdiff_t *lda,
12747 const double *b,
12748 const ptrdiff_t *ldb,
12749 double *c,
12750 const ptrdiff_t *ldc,
12751 const double *d,
12752 const ptrdiff_t *ldd,
12753 const double *e,
12754 const ptrdiff_t *lde,
12755 double *f,
12756 const ptrdiff_t *ldf,
12757 double *scale,
12758 double *rdsum,
12759 double *rdscal,
12760 ptrdiff_t *iwork,
12761 ptrdiff_t *pq,
12762 ptrdiff_t *info
12763);
12764
12765/* Source: dtgsyl.f */
12766#define dtgsyl FORTRAN_WRAPPER(dtgsyl)
12767extern void dtgsyl(
12768 const char *trans,
12769 const ptrdiff_t *ijob,
12770 const ptrdiff_t *m,
12771 const ptrdiff_t *n,
12772 const double *a,
12773 const ptrdiff_t *lda,
12774 const double *b,
12775 const ptrdiff_t *ldb,
12776 double *c,
12777 const ptrdiff_t *ldc,
12778 const double *d,
12779 const ptrdiff_t *ldd,
12780 const double *e,
12781 const ptrdiff_t *lde,
12782 double *f,
12783 const ptrdiff_t *ldf,
12784 double *scale,
12785 double *dif,
12786 double *work,
12787 const ptrdiff_t *lwork,
12788 ptrdiff_t *iwork,
12789 ptrdiff_t *info
12790);
12791
12792/* Source: dtpcon.f */
12793#define dtpcon FORTRAN_WRAPPER(dtpcon)
12794extern void dtpcon(
12795 const char *norm,
12796 const char *uplo,
12797 const char *diag,
12798 const ptrdiff_t *n,
12799 const double *ap,
12800 double *rcond,
12801 double *work,
12802 ptrdiff_t *iwork,
12803 ptrdiff_t *info
12804);
12805
12806/* Source: dtpmqrt.f */
12807#define dtpmqrt FORTRAN_WRAPPER(dtpmqrt)
12808extern void dtpmqrt(
12809 const char *side,
12810 const char *trans,
12811 const ptrdiff_t *m,
12812 const ptrdiff_t *n,
12813 const ptrdiff_t *k,
12814 const ptrdiff_t *l,
12815 const ptrdiff_t *nb,
12816 const double *v,
12817 const ptrdiff_t *ldv,
12818 const double *t,
12819 const ptrdiff_t *ldt,
12820 double *a,
12821 const ptrdiff_t *lda,
12822 double *b,
12823 const ptrdiff_t *ldb,
12824 double *work,
12825 ptrdiff_t *info
12826);
12827
12828/* Source: dtpqrt.f */
12829#define dtpqrt FORTRAN_WRAPPER(dtpqrt)
12830extern void dtpqrt(
12831 const ptrdiff_t *m,
12832 const ptrdiff_t *n,
12833 const ptrdiff_t *l,
12834 const ptrdiff_t *nb,
12835 const double *a,
12836 const ptrdiff_t *lda,
12837 const double *b,
12838 const ptrdiff_t *ldb,
12839 const double *t,
12840 const ptrdiff_t *ldt,
12841 const double *work,
12842 ptrdiff_t *info
12843);
12844
12845/* Source: dtpqrt2.f */
12846#define dtpqrt2 FORTRAN_WRAPPER(dtpqrt2)
12847extern void dtpqrt2(
12848 const ptrdiff_t *m,
12849 const ptrdiff_t *n,
12850 const ptrdiff_t *l,
12851 double *a,
12852 const ptrdiff_t *lda,
12853 double *b,
12854 const ptrdiff_t *ldb,
12855 double *t,
12856 const ptrdiff_t *ldt,
12857 ptrdiff_t *info
12858);
12859
12860/* Source: dtprfb.f */
12861#define dtprfb FORTRAN_WRAPPER(dtprfb)
12862extern void dtprfb(
12863 const char *side,
12864 const char *trans,
12865 const char *direct,
12866 const char *storev,
12867 const ptrdiff_t *m,
12868 const ptrdiff_t *n,
12869 const ptrdiff_t *k,
12870 const ptrdiff_t *l,
12871 const double *v,
12872 const ptrdiff_t *ldv,
12873 const double *t,
12874 const ptrdiff_t *ldt,
12875 double *a,
12876 const ptrdiff_t *lda,
12877 double *b,
12878 const ptrdiff_t *ldb,
12879 double *work,
12880 const ptrdiff_t *ldwork
12881);
12882
12883/* Source: dtprfs.f */
12884#define dtprfs FORTRAN_WRAPPER(dtprfs)
12885extern void dtprfs(
12886 const char *uplo,
12887 const char *trans,
12888 const char *diag,
12889 const ptrdiff_t *n,
12890 const ptrdiff_t *nrhs,
12891 const double *ap,
12892 const double *b,
12893 const ptrdiff_t *ldb,
12894 const double *x,
12895 const ptrdiff_t *ldx,
12896 double *ferr,
12897 double *berr,
12898 double *work,
12899 ptrdiff_t *iwork,
12900 ptrdiff_t *info
12901);
12902
12903/* Source: dtptri.f */
12904#define dtptri FORTRAN_WRAPPER(dtptri)
12905extern void dtptri(
12906 const char *uplo,
12907 const char *diag,
12908 const ptrdiff_t *n,
12909 double *ap,
12910 ptrdiff_t *info
12911);
12912
12913/* Source: dtptrs.f */
12914#define dtptrs FORTRAN_WRAPPER(dtptrs)
12915extern void dtptrs(
12916 const char *uplo,
12917 const char *trans,
12918 const char *diag,
12919 const ptrdiff_t *n,
12920 const ptrdiff_t *nrhs,
12921 const double *ap,
12922 double *b,
12923 const ptrdiff_t *ldb,
12924 ptrdiff_t *info
12925);
12926
12927/* Source: dtpttf.f */
12928#define dtpttf FORTRAN_WRAPPER(dtpttf)
12929extern void dtpttf(
12930 const char *transr,
12931 const char *uplo,
12932 const ptrdiff_t *n,
12933 const double *ap,
12934 double *arf,
12935 ptrdiff_t *info
12936);
12937
12938/* Source: dtpttr.f */
12939#define dtpttr FORTRAN_WRAPPER(dtpttr)
12940extern void dtpttr(
12941 const char *uplo,
12942 const ptrdiff_t *n,
12943 const double *ap,
12944 double *a,
12945 const ptrdiff_t *lda,
12946 ptrdiff_t *info
12947);
12948
12949/* Source: dtrcon.f */
12950#define dtrcon FORTRAN_WRAPPER(dtrcon)
12951extern void dtrcon(
12952 const char *norm,
12953 const char *uplo,
12954 const char *diag,
12955 const ptrdiff_t *n,
12956 const double *a,
12957 const ptrdiff_t *lda,
12958 double *rcond,
12959 double *work,
12960 ptrdiff_t *iwork,
12961 ptrdiff_t *info
12962);
12963
12964/* Source: dtrevc.f */
12965#define dtrevc FORTRAN_WRAPPER(dtrevc)
12966extern void dtrevc(
12967 const char *side,
12968 const char *howmny,
12969 ptrdiff_t *select,
12970 const ptrdiff_t *n,
12971 const double *t,
12972 const ptrdiff_t *ldt,
12973 double *vl,
12974 const ptrdiff_t *ldvl,
12975 double *vr,
12976 const ptrdiff_t *ldvr,
12977 const ptrdiff_t *mm,
12978 ptrdiff_t *m,
12979 double *work,
12980 ptrdiff_t *info
12981);
12982
12983/* Source: dtrexc.f */
12984#define dtrexc FORTRAN_WRAPPER(dtrexc)
12985extern void dtrexc(
12986 const char *compq,
12987 const ptrdiff_t *n,
12988 double *t,
12989 const ptrdiff_t *ldt,
12990 double *q,
12991 const ptrdiff_t *ldq,
12992 ptrdiff_t *ifst,
12993 ptrdiff_t *ilst,
12994 double *work,
12995 ptrdiff_t *info
12996);
12997
12998/* Source: dtrrfs.f */
12999#define dtrrfs FORTRAN_WRAPPER(dtrrfs)
13000extern void dtrrfs(
13001 const char *uplo,
13002 const char *trans,
13003 const char *diag,
13004 const ptrdiff_t *n,
13005 const ptrdiff_t *nrhs,
13006 const double *a,
13007 const ptrdiff_t *lda,
13008 const double *b,
13009 const ptrdiff_t *ldb,
13010 const double *x,
13011 const ptrdiff_t *ldx,
13012 double *ferr,
13013 double *berr,
13014 double *work,
13015 ptrdiff_t *iwork,
13016 ptrdiff_t *info
13017);
13018
13019/* Source: dtrsen.f */
13020#define dtrsen FORTRAN_WRAPPER(dtrsen)
13021extern void dtrsen(
13022 const char *job,
13023 const char *compq,
13024 const ptrdiff_t *select,
13025 const ptrdiff_t *n,
13026 double *t,
13027 const ptrdiff_t *ldt,
13028 double *q,
13029 const ptrdiff_t *ldq,
13030 double *wr,
13031 double *wi,
13032 ptrdiff_t *m,
13033 double *s,
13034 double *sep,
13035 double *work,
13036 const ptrdiff_t *lwork,
13037 ptrdiff_t *iwork,
13038 const ptrdiff_t *liwork,
13039 ptrdiff_t *info
13040);
13041
13042/* Source: dtrsna.f */
13043#define dtrsna FORTRAN_WRAPPER(dtrsna)
13044extern void dtrsna(
13045 const char *job,
13046 const char *howmny,
13047 const ptrdiff_t *select,
13048 const ptrdiff_t *n,
13049 const double *t,
13050 const ptrdiff_t *ldt,
13051 const double *vl,
13052 const ptrdiff_t *ldvl,
13053 const double *vr,
13054 const ptrdiff_t *ldvr,
13055 double *s,
13056 double *sep,
13057 const ptrdiff_t *mm,
13058 ptrdiff_t *m,
13059 double *work,
13060 const ptrdiff_t *ldwork,
13061 ptrdiff_t *iwork,
13062 ptrdiff_t *info
13063);
13064
13065/* Source: dtrsyl.f */
13066#define dtrsyl FORTRAN_WRAPPER(dtrsyl)
13067extern void dtrsyl(
13068 const char *trana,
13069 const char *tranb,
13070 const ptrdiff_t *isgn,
13071 const ptrdiff_t *m,
13072 const ptrdiff_t *n,
13073 const double *a,
13074 const ptrdiff_t *lda,
13075 const double *b,
13076 const ptrdiff_t *ldb,
13077 double *c,
13078 const ptrdiff_t *ldc,
13079 double *scale,
13080 ptrdiff_t *info
13081);
13082
13083/* Source: dtrti2.f */
13084#define dtrti2 FORTRAN_WRAPPER(dtrti2)
13085extern void dtrti2(
13086 const char *uplo,
13087 const char *diag,
13088 const ptrdiff_t *n,
13089 double *a,
13090 const ptrdiff_t *lda,
13091 ptrdiff_t *info
13092);
13093
13094/* Source: dtrtri.f */
13095#define dtrtri FORTRAN_WRAPPER(dtrtri)
13096extern void dtrtri(
13097 const char *uplo,
13098 const char *diag,
13099 const ptrdiff_t *n,
13100 double *a,
13101 const ptrdiff_t *lda,
13102 ptrdiff_t *info
13103);
13104
13105/* Source: dtrtrs.f */
13106#define dtrtrs FORTRAN_WRAPPER(dtrtrs)
13107extern void dtrtrs(
13108 const char *uplo,
13109 const char *trans,
13110 const char *diag,
13111 const ptrdiff_t *n,
13112 const ptrdiff_t *nrhs,
13113 const double *a,
13114 const ptrdiff_t *lda,
13115 double *b,
13116 const ptrdiff_t *ldb,
13117 ptrdiff_t *info
13118);
13119
13120/* Source: dtrttf.f */
13121#define dtrttf FORTRAN_WRAPPER(dtrttf)
13122extern void dtrttf(
13123 const char *transr,
13124 const char *uplo,
13125 const ptrdiff_t *n,
13126 const double *a,
13127 const ptrdiff_t *lda,
13128 double *arf,
13129 ptrdiff_t *info
13130);
13131
13132/* Source: dtrttp.f */
13133#define dtrttp FORTRAN_WRAPPER(dtrttp)
13134extern void dtrttp(
13135 const char *uplo,
13136 const ptrdiff_t *n,
13137 const double *a,
13138 const ptrdiff_t *lda,
13139 double *ap,
13140 ptrdiff_t *info
13141);
13142
13143/* Source: dtzrqf.f */
13144#define dtzrqf FORTRAN_WRAPPER(dtzrqf)
13145extern void dtzrqf(
13146 const ptrdiff_t *m,
13147 const ptrdiff_t *n,
13148 double *a,
13149 const ptrdiff_t *lda,
13150 double *tau,
13151 ptrdiff_t *info
13152);
13153
13154/* Source: dtzrzf.f */
13155#define dtzrzf FORTRAN_WRAPPER(dtzrzf)
13156extern void dtzrzf(
13157 const ptrdiff_t *m,
13158 const ptrdiff_t *n,
13159 double *a,
13160 const ptrdiff_t *lda,
13161 double *tau,
13162 double *work,
13163 const ptrdiff_t *lwork,
13164 ptrdiff_t *info
13165);
13166
13167/* Source: dzsum1.f */
13168#define dzsum1 FORTRAN_WRAPPER(dzsum1)
13169extern double dzsum1(
13170 const ptrdiff_t *n,
13171 const double *cx,
13172 const ptrdiff_t *incx
13173);
13174
13175/* Source: icmax1.f */
13176#define icmax1 FORTRAN_WRAPPER(icmax1)
13177extern ptrdiff_t icmax1(
13178 const ptrdiff_t *n,
13179 const float *cx,
13180 const ptrdiff_t *incx
13181);
13182
13183/* Source: ieeeck.f */
13184#define ieeeck FORTRAN_WRAPPER(ieeeck)
13185extern ptrdiff_t ieeeck(
13186 const ptrdiff_t *ispec,
13187 const float *zero,
13188 const float *one
13189);
13190
13191/* Source: ilaclc.f */
13192#define ilaclc FORTRAN_WRAPPER(ilaclc)
13193extern ptrdiff_t ilaclc(
13194 const ptrdiff_t *m,
13195 const ptrdiff_t *n,
13196 const float *a,
13197 const ptrdiff_t *lda
13198);
13199
13200/* Source: ilaclr.f */
13201#define ilaclr FORTRAN_WRAPPER(ilaclr)
13202extern ptrdiff_t ilaclr(
13203 const ptrdiff_t *m,
13204 const ptrdiff_t *n,
13205 const float *a,
13206 const ptrdiff_t *lda
13207);
13208
13209/* Source: iladiag.f */
13210#define iladiag FORTRAN_WRAPPER(iladiag)
13211extern ptrdiff_t iladiag(
13212 const char *diag
13213);
13214
13215/* Source: iladlc.f */
13216#define iladlc FORTRAN_WRAPPER(iladlc)
13217extern ptrdiff_t iladlc(
13218 const ptrdiff_t *m,
13219 const ptrdiff_t *n,
13220 const double *a,
13221 const ptrdiff_t *lda
13222);
13223
13224/* Source: iladlr.f */
13225#define iladlr FORTRAN_WRAPPER(iladlr)
13226extern ptrdiff_t iladlr(
13227 const ptrdiff_t *m,
13228 const ptrdiff_t *n,
13229 const double *a,
13230 const ptrdiff_t *lda
13231);
13232
13233/* Source: ilaenv.f */
13234#define ilaenv FORTRAN_WRAPPER(ilaenv)
13235extern ptrdiff_t ilaenv(
13236 const ptrdiff_t *ispec,
13237 const char *name,
13238 const char *opts,
13239 const ptrdiff_t *n1,
13240 const ptrdiff_t *n2,
13241 const ptrdiff_t *n3,
13242 const ptrdiff_t *n4,
13243 ptrdiff_t name_len,
13244 ptrdiff_t opts_len
13245);
13246
13247/* Source: ilaprec.f */
13248#define ilaprec FORTRAN_WRAPPER(ilaprec)
13249extern ptrdiff_t ilaprec(
13250 const char *prec
13251);
13252
13253/* Source: ilaslc.f */
13254#define ilaslc FORTRAN_WRAPPER(ilaslc)
13255extern ptrdiff_t ilaslc(
13256 const ptrdiff_t *m,
13257 const ptrdiff_t *n,
13258 const float *a,
13259 const ptrdiff_t *lda
13260);
13261
13262/* Source: ilaslr.f */
13263#define ilaslr FORTRAN_WRAPPER(ilaslr)
13264extern ptrdiff_t ilaslr(
13265 const ptrdiff_t *m,
13266 const ptrdiff_t *n,
13267 const float *a,
13268 const ptrdiff_t *lda
13269);
13270
13271/* Source: ilatrans.f */
13272#define ilatrans FORTRAN_WRAPPER(ilatrans)
13273extern ptrdiff_t ilatrans(
13274 const char *trans
13275);
13276
13277/* Source: ilauplo.f */
13278#define ilauplo FORTRAN_WRAPPER(ilauplo)
13279extern ptrdiff_t ilauplo(
13280 const char *uplo
13281);
13282
13283/* Source: ilaver.f */
13284#define ilaver FORTRAN_WRAPPER(ilaver)
13285extern void ilaver(
13286 ptrdiff_t *vers_major,
13287 ptrdiff_t *vers_minor,
13288 ptrdiff_t *vers_patch
13289);
13290
13291/* Source: ilazlc.f */
13292#define ilazlc FORTRAN_WRAPPER(ilazlc)
13293extern ptrdiff_t ilazlc(
13294 const ptrdiff_t *m,
13295 const ptrdiff_t *n,
13296 const double *a,
13297 const ptrdiff_t *lda
13298);
13299
13300/* Source: ilazlr.f */
13301#define ilazlr FORTRAN_WRAPPER(ilazlr)
13302extern ptrdiff_t ilazlr(
13303 const ptrdiff_t *m,
13304 const ptrdiff_t *n,
13305 const double *a,
13306 const ptrdiff_t *lda
13307);
13308
13309/* Source: iparmq.f */
13310#define iparmq FORTRAN_WRAPPER(iparmq)
13311extern ptrdiff_t iparmq(
13312 const ptrdiff_t *ispec,
13313 const char *name,
13314 const char *opts,
13315 const ptrdiff_t *n,
13316 const ptrdiff_t *ilo,
13317 const ptrdiff_t *ihi,
13318 const ptrdiff_t *lwork
13319);
13320
13321/* Source: izmax1.f */
13322#define izmax1 FORTRAN_WRAPPER(izmax1)
13323extern ptrdiff_t izmax1(
13324 const ptrdiff_t *n,
13325 const double *cx,
13326 const ptrdiff_t *incx
13327);
13328
13329/* Source: lsamen.f */
13330#define lsamen FORTRAN_WRAPPER(lsamen)
13331extern ptrdiff_t lsamen(
13332 const ptrdiff_t *n,
13333 const char *ca,
13334 const char *cb,
13335 ptrdiff_t ca_len,
13336 ptrdiff_t cb_len
13337);
13338
13339/* Source: sbbcsd.f */
13340#define sbbcsd FORTRAN_WRAPPER(sbbcsd)
13341extern void sbbcsd(
13342 const char *jobu1,
13343 const char *jobu2,
13344 const char *jobv1t,
13345 const char *jobv2t,
13346 const char *trans,
13347 const ptrdiff_t *m,
13348 const ptrdiff_t *p,
13349 const ptrdiff_t *q,
13350 float *theta,
13351 float *phi,
13352 float *u1,
13353 const ptrdiff_t *ldu1,
13354 float *u2,
13355 const ptrdiff_t *ldu2,
13356 float *v1t,
13357 const ptrdiff_t *ldv1t,
13358 float *v2t,
13359 const ptrdiff_t *ldv2t,
13360 float *b11d,
13361 float *b11e,
13362 float *b12d,
13363 float *b12e,
13364 float *b21d,
13365 float *b21e,
13366 float *b22d,
13367 float *b22e,
13368 float *work,
13369 const ptrdiff_t *lwork,
13370 ptrdiff_t *info
13371);
13372
13373/* Source: sbdsdc.f */
13374#define sbdsdc FORTRAN_WRAPPER(sbdsdc)
13375extern void sbdsdc(
13376 const char *uplo,
13377 const char *compq,
13378 const ptrdiff_t *n,
13379 float *d,
13380 float *e,
13381 float *u,
13382 const ptrdiff_t *ldu,
13383 float *vt,
13384 const ptrdiff_t *ldvt,
13385 float *q,
13386 ptrdiff_t *iq,
13387 float *work,
13388 ptrdiff_t *iwork,
13389 ptrdiff_t *info
13390);
13391
13392/* Source: sbdsqr.f */
13393#define sbdsqr FORTRAN_WRAPPER(sbdsqr)
13394extern void sbdsqr(
13395 const char *uplo,
13396 const ptrdiff_t *n,
13397 const ptrdiff_t *ncvt,
13398 const ptrdiff_t *nru,
13399 const ptrdiff_t *ncc,
13400 float *d,
13401 float *e,
13402 float *vt,
13403 const ptrdiff_t *ldvt,
13404 float *u,
13405 const ptrdiff_t *ldu,
13406 float *c,
13407 const ptrdiff_t *ldc,
13408 float *work,
13409 ptrdiff_t *info
13410);
13411
13412/* Source: scsum1.f */
13413#define scsum1 FORTRAN_WRAPPER(scsum1)
13414#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
13415extern double scsum1(
13416#else
13417extern float scsum1(
13418#endif
13419 const ptrdiff_t *n,
13420 const float *cx,
13421 const ptrdiff_t *incx
13422);
13423
13424/* Source: sdisna.f */
13425#define sdisna FORTRAN_WRAPPER(sdisna)
13426extern void sdisna(
13427 const char *job,
13428 const ptrdiff_t *m,
13429 const ptrdiff_t *n,
13430 const float *d,
13431 float *sep,
13432 ptrdiff_t *info
13433);
13434
13435/* Source: sgbbrd.f */
13436#define sgbbrd FORTRAN_WRAPPER(sgbbrd)
13437extern void sgbbrd(
13438 const char *vect,
13439 const ptrdiff_t *m,
13440 const ptrdiff_t *n,
13441 const ptrdiff_t *ncc,
13442 const ptrdiff_t *kl,
13443 const ptrdiff_t *ku,
13444 float *ab,
13445 const ptrdiff_t *ldab,
13446 float *d,
13447 float *e,
13448 float *q,
13449 const ptrdiff_t *ldq,
13450 float *pt,
13451 const ptrdiff_t *ldpt,
13452 float *c,
13453 const ptrdiff_t *ldc,
13454 float *work,
13455 ptrdiff_t *info
13456);
13457
13458/* Source: sgbcon.f */
13459#define sgbcon FORTRAN_WRAPPER(sgbcon)
13460extern void sgbcon(
13461 const char *norm,
13462 const ptrdiff_t *n,
13463 const ptrdiff_t *kl,
13464 const ptrdiff_t *ku,
13465 const float *ab,
13466 const ptrdiff_t *ldab,
13467 const ptrdiff_t *ipiv,
13468 const float *anorm,
13469 float *rcond,
13470 float *work,
13471 ptrdiff_t *iwork,
13472 ptrdiff_t *info
13473);
13474
13475/* Source: sgbequ.f */
13476#define sgbequ FORTRAN_WRAPPER(sgbequ)
13477extern void sgbequ(
13478 const ptrdiff_t *m,
13479 const ptrdiff_t *n,
13480 const ptrdiff_t *kl,
13481 const ptrdiff_t *ku,
13482 const float *ab,
13483 const ptrdiff_t *ldab,
13484 float *r,
13485 float *c,
13486 float *rowcnd,
13487 float *colcnd,
13488 float *amax,
13489 ptrdiff_t *info
13490);
13491
13492/* Source: sgbequb.f */
13493#define sgbequb FORTRAN_WRAPPER(sgbequb)
13494extern void sgbequb(
13495 const ptrdiff_t *m,
13496 const ptrdiff_t *n,
13497 const ptrdiff_t *kl,
13498 const ptrdiff_t *ku,
13499 const float *ab,
13500 const ptrdiff_t *ldab,
13501 float *r,
13502 float *c,
13503 float *rowcnd,
13504 float *colcnd,
13505 float *amax,
13506 ptrdiff_t *info
13507);
13508
13509/* Source: sgbrfs.f */
13510#define sgbrfs FORTRAN_WRAPPER(sgbrfs)
13511extern void sgbrfs(
13512 const char *trans,
13513 const ptrdiff_t *n,
13514 const ptrdiff_t *kl,
13515 const ptrdiff_t *ku,
13516 const ptrdiff_t *nrhs,
13517 const float *ab,
13518 const ptrdiff_t *ldab,
13519 const float *afb,
13520 const ptrdiff_t *ldafb,
13521 const ptrdiff_t *ipiv,
13522 const float *b,
13523 const ptrdiff_t *ldb,
13524 float *x,
13525 const ptrdiff_t *ldx,
13526 float *ferr,
13527 float *berr,
13528 float *work,
13529 ptrdiff_t *iwork,
13530 ptrdiff_t *info
13531);
13532
13533/* Source: sgbsv.f */
13534#define sgbsv FORTRAN_WRAPPER(sgbsv)
13535extern void sgbsv(
13536 const ptrdiff_t *n,
13537 const ptrdiff_t *kl,
13538 const ptrdiff_t *ku,
13539 const ptrdiff_t *nrhs,
13540 float *ab,
13541 const ptrdiff_t *ldab,
13542 ptrdiff_t *ipiv,
13543 float *b,
13544 const ptrdiff_t *ldb,
13545 ptrdiff_t *info
13546);
13547
13548/* Source: sgbsvx.f */
13549#define sgbsvx FORTRAN_WRAPPER(sgbsvx)
13550extern void sgbsvx(
13551 const char *fact,
13552 const char *trans,
13553 const ptrdiff_t *n,
13554 const ptrdiff_t *kl,
13555 const ptrdiff_t *ku,
13556 const ptrdiff_t *nrhs,
13557 float *ab,
13558 const ptrdiff_t *ldab,
13559 float *afb,
13560 const ptrdiff_t *ldafb,
13561 ptrdiff_t *ipiv,
13562 char *equed,
13563 float *r,
13564 float *c,
13565 float *b,
13566 const ptrdiff_t *ldb,
13567 float *x,
13568 const ptrdiff_t *ldx,
13569 float *rcond,
13570 float *ferr,
13571 float *berr,
13572 float *work,
13573 ptrdiff_t *iwork,
13574 ptrdiff_t *info
13575);
13576
13577/* Source: sgbtf2.f */
13578#define sgbtf2 FORTRAN_WRAPPER(sgbtf2)
13579extern void sgbtf2(
13580 const ptrdiff_t *m,
13581 const ptrdiff_t *n,
13582 const ptrdiff_t *kl,
13583 const ptrdiff_t *ku,
13584 float *ab,
13585 const ptrdiff_t *ldab,
13586 ptrdiff_t *ipiv,
13587 ptrdiff_t *info
13588);
13589
13590/* Source: sgbtrf.f */
13591#define sgbtrf FORTRAN_WRAPPER(sgbtrf)
13592extern void sgbtrf(
13593 const ptrdiff_t *m,
13594 const ptrdiff_t *n,
13595 const ptrdiff_t *kl,
13596 const ptrdiff_t *ku,
13597 float *ab,
13598 const ptrdiff_t *ldab,
13599 ptrdiff_t *ipiv,
13600 ptrdiff_t *info
13601);
13602
13603/* Source: sgbtrs.f */
13604#define sgbtrs FORTRAN_WRAPPER(sgbtrs)
13605extern void sgbtrs(
13606 const char *trans,
13607 const ptrdiff_t *n,
13608 const ptrdiff_t *kl,
13609 const ptrdiff_t *ku,
13610 const ptrdiff_t *nrhs,
13611 const float *ab,
13612 const ptrdiff_t *ldab,
13613 const ptrdiff_t *ipiv,
13614 float *b,
13615 const ptrdiff_t *ldb,
13616 ptrdiff_t *info
13617);
13618
13619/* Source: sgebak.f */
13620#define sgebak FORTRAN_WRAPPER(sgebak)
13621extern void sgebak(
13622 const char *job,
13623 const char *side,
13624 const ptrdiff_t *n,
13625 const ptrdiff_t *ilo,
13626 const ptrdiff_t *ihi,
13627 const float *scale,
13628 const ptrdiff_t *m,
13629 float *v,
13630 const ptrdiff_t *ldv,
13631 ptrdiff_t *info
13632);
13633
13634/* Source: sgebal.f */
13635#define sgebal FORTRAN_WRAPPER(sgebal)
13636extern void sgebal(
13637 const char *job,
13638 const ptrdiff_t *n,
13639 float *a,
13640 const ptrdiff_t *lda,
13641 ptrdiff_t *ilo,
13642 ptrdiff_t *ihi,
13643 float *scale,
13644 ptrdiff_t *info
13645);
13646
13647/* Source: sgebd2.f */
13648#define sgebd2 FORTRAN_WRAPPER(sgebd2)
13649extern void sgebd2(
13650 const ptrdiff_t *m,
13651 const ptrdiff_t *n,
13652 float *a,
13653 const ptrdiff_t *lda,
13654 float *d,
13655 float *e,
13656 float *tauq,
13657 float *taup,
13658 float *work,
13659 ptrdiff_t *info
13660);
13661
13662/* Source: sgebrd.f */
13663#define sgebrd FORTRAN_WRAPPER(sgebrd)
13664extern void sgebrd(
13665 const ptrdiff_t *m,
13666 const ptrdiff_t *n,
13667 float *a,
13668 const ptrdiff_t *lda,
13669 float *d,
13670 float *e,
13671 float *tauq,
13672 float *taup,
13673 float *work,
13674 const ptrdiff_t *lwork,
13675 ptrdiff_t *info
13676);
13677
13678/* Source: sgecon.f */
13679#define sgecon FORTRAN_WRAPPER(sgecon)
13680extern void sgecon(
13681 const char *norm,
13682 const ptrdiff_t *n,
13683 const float *a,
13684 const ptrdiff_t *lda,
13685 const float *anorm,
13686 float *rcond,
13687 float *work,
13688 ptrdiff_t *iwork,
13689 ptrdiff_t *info
13690);
13691
13692/* Source: sgeequ.f */
13693#define sgeequ FORTRAN_WRAPPER(sgeequ)
13694extern void sgeequ(
13695 const ptrdiff_t *m,
13696 const ptrdiff_t *n,
13697 const float *a,
13698 const ptrdiff_t *lda,
13699 float *r,
13700 float *c,
13701 float *rowcnd,
13702 float *colcnd,
13703 float *amax,
13704 ptrdiff_t *info
13705);
13706
13707/* Source: sgeequb.f */
13708#define sgeequb FORTRAN_WRAPPER(sgeequb)
13709extern void sgeequb(
13710 const ptrdiff_t *m,
13711 const ptrdiff_t *n,
13712 const float *a,
13713 const ptrdiff_t *lda,
13714 float *r,
13715 float *c,
13716 float *rowcnd,
13717 float *colcnd,
13718 float *amax,
13719 ptrdiff_t *info
13720);
13721
13722/* Source: sgees.f */
13723#define sgees FORTRAN_WRAPPER(sgees)
13724extern void sgees(
13725 const char *jobvs,
13726 const char *sort,
13727 ptrdiff_t (*select)(),
13728 const ptrdiff_t *n,
13729 float *a,
13730 const ptrdiff_t *lda,
13731 ptrdiff_t *sdim,
13732 float *wr,
13733 float *wi,
13734 float *vs,
13735 const ptrdiff_t *ldvs,
13736 float *work,
13737 const ptrdiff_t *lwork,
13738 ptrdiff_t *bwork,
13739 ptrdiff_t *info
13740);
13741
13742/* Source: sgeesx.f */
13743#define sgeesx FORTRAN_WRAPPER(sgeesx)
13744extern void sgeesx(
13745 const char *jobvs,
13746 const char *sort,
13747 ptrdiff_t (*select)(),
13748 const char *sense,
13749 const ptrdiff_t *n,
13750 float *a,
13751 const ptrdiff_t *lda,
13752 ptrdiff_t *sdim,
13753 float *wr,
13754 float *wi,
13755 float *vs,
13756 const ptrdiff_t *ldvs,
13757 float *rconde,
13758 float *rcondv,
13759 float *work,
13760 const ptrdiff_t *lwork,
13761 ptrdiff_t *iwork,
13762 const ptrdiff_t *liwork,
13763 ptrdiff_t *bwork,
13764 ptrdiff_t *info
13765);
13766
13767/* Source: sgeev.f */
13768#define sgeev FORTRAN_WRAPPER(sgeev)
13769extern void sgeev(
13770 const char *jobvl,
13771 const char *jobvr,
13772 const ptrdiff_t *n,
13773 float *a,
13774 const ptrdiff_t *lda,
13775 float *wr,
13776 float *wi,
13777 float *vl,
13778 const ptrdiff_t *ldvl,
13779 float *vr,
13780 const ptrdiff_t *ldvr,
13781 float *work,
13782 const ptrdiff_t *lwork,
13783 ptrdiff_t *info
13784);
13785
13786/* Source: sgeevx.f */
13787#define sgeevx FORTRAN_WRAPPER(sgeevx)
13788extern void sgeevx(
13789 const char *balanc,
13790 const char *jobvl,
13791 const char *jobvr,
13792 const char *sense,
13793 const ptrdiff_t *n,
13794 float *a,
13795 const ptrdiff_t *lda,
13796 float *wr,
13797 float *wi,
13798 float *vl,
13799 const ptrdiff_t *ldvl,
13800 float *vr,
13801 const ptrdiff_t *ldvr,
13802 ptrdiff_t *ilo,
13803 ptrdiff_t *ihi,
13804 float *scale,
13805 float *abnrm,
13806 float *rconde,
13807 float *rcondv,
13808 float *work,
13809 const ptrdiff_t *lwork,
13810 ptrdiff_t *iwork,
13811 ptrdiff_t *info
13812);
13813
13814/* Source: sgegs.f */
13815#define sgegs FORTRAN_WRAPPER(sgegs)
13816extern void sgegs(
13817 const char *jobvsl,
13818 const char *jobvsr,
13819 const ptrdiff_t *n,
13820 float *a,
13821 const ptrdiff_t *lda,
13822 float *b,
13823 const ptrdiff_t *ldb,
13824 float *alphar,
13825 float *alphai,
13826 float *beta,
13827 float *vsl,
13828 const ptrdiff_t *ldvsl,
13829 float *vsr,
13830 const ptrdiff_t *ldvsr,
13831 float *work,
13832 const ptrdiff_t *lwork,
13833 ptrdiff_t *info
13834);
13835
13836/* Source: sgegv.f */
13837#define sgegv FORTRAN_WRAPPER(sgegv)
13838extern void sgegv(
13839 const char *jobvl,
13840 const char *jobvr,
13841 const ptrdiff_t *n,
13842 float *a,
13843 const ptrdiff_t *lda,
13844 float *b,
13845 const ptrdiff_t *ldb,
13846 float *alphar,
13847 float *alphai,
13848 float *beta,
13849 float *vl,
13850 const ptrdiff_t *ldvl,
13851 float *vr,
13852 const ptrdiff_t *ldvr,
13853 float *work,
13854 const ptrdiff_t *lwork,
13855 ptrdiff_t *info
13856);
13857
13858/* Source: sgehd2.f */
13859#define sgehd2 FORTRAN_WRAPPER(sgehd2)
13860extern void sgehd2(
13861 const ptrdiff_t *n,
13862 const ptrdiff_t *ilo,
13863 const ptrdiff_t *ihi,
13864 float *a,
13865 const ptrdiff_t *lda,
13866 float *tau,
13867 float *work,
13868 ptrdiff_t *info
13869);
13870
13871/* Source: sgehrd.f */
13872#define sgehrd FORTRAN_WRAPPER(sgehrd)
13873extern void sgehrd(
13874 const ptrdiff_t *n,
13875 const ptrdiff_t *ilo,
13876 const ptrdiff_t *ihi,
13877 float *a,
13878 const ptrdiff_t *lda,
13879 float *tau,
13880 float *work,
13881 const ptrdiff_t *lwork,
13882 ptrdiff_t *info
13883);
13884
13885/* Source: sgejsv.f */
13886#define sgejsv FORTRAN_WRAPPER(sgejsv)
13887extern void sgejsv(
13888 char *joba,
13889 char *jobu,
13890 char *jobv,
13891 char *jobr,
13892 char *jobt,
13893 char *jobp,
13894 const ptrdiff_t *m,
13895 const ptrdiff_t *n,
13896 float *a,
13897 const ptrdiff_t *lda,
13898 float *sva,
13899 float *u,
13900 const ptrdiff_t *ldu,
13901 float *v,
13902 const ptrdiff_t *ldv,
13903 float *work,
13904 const ptrdiff_t *lwork,
13905 ptrdiff_t *iwork,
13906 ptrdiff_t *info
13907);
13908
13909/* Source: sgelq2.f */
13910#define sgelq2 FORTRAN_WRAPPER(sgelq2)
13911extern void sgelq2(
13912 const ptrdiff_t *m,
13913 const ptrdiff_t *n,
13914 float *a,
13915 const ptrdiff_t *lda,
13916 float *tau,
13917 float *work,
13918 ptrdiff_t *info
13919);
13920
13921/* Source: sgelqf.f */
13922#define sgelqf FORTRAN_WRAPPER(sgelqf)
13923extern void sgelqf(
13924 const ptrdiff_t *m,
13925 const ptrdiff_t *n,
13926 float *a,
13927 const ptrdiff_t *lda,
13928 float *tau,
13929 float *work,
13930 const ptrdiff_t *lwork,
13931 ptrdiff_t *info
13932);
13933
13934/* Source: sgels.f */
13935#define sgels FORTRAN_WRAPPER(sgels)
13936extern void sgels(
13937 const char *trans,
13938 const ptrdiff_t *m,
13939 const ptrdiff_t *n,
13940 const ptrdiff_t *nrhs,
13941 float *a,
13942 const ptrdiff_t *lda,
13943 float *b,
13944 const ptrdiff_t *ldb,
13945 float *work,
13946 const ptrdiff_t *lwork,
13947 ptrdiff_t *info
13948);
13949
13950/* Source: sgelsd.f */
13951#define sgelsd FORTRAN_WRAPPER(sgelsd)
13952extern void sgelsd(
13953 const ptrdiff_t *m,
13954 const ptrdiff_t *n,
13955 const ptrdiff_t *nrhs,
13956 const float *a,
13957 const ptrdiff_t *lda,
13958 float *b,
13959 const ptrdiff_t *ldb,
13960 float *s,
13961 const float *rcond,
13962 ptrdiff_t *rank,
13963 float *work,
13964 const ptrdiff_t *lwork,
13965 ptrdiff_t *iwork,
13966 ptrdiff_t *info
13967);
13968
13969/* Source: sgelss.f */
13970#define sgelss FORTRAN_WRAPPER(sgelss)
13971extern void sgelss(
13972 const ptrdiff_t *m,
13973 const ptrdiff_t *n,
13974 const ptrdiff_t *nrhs,
13975 float *a,
13976 const ptrdiff_t *lda,
13977 float *b,
13978 const ptrdiff_t *ldb,
13979 float *s,
13980 const float *rcond,
13981 ptrdiff_t *rank,
13982 float *work,
13983 const ptrdiff_t *lwork,
13984 ptrdiff_t *info
13985);
13986
13987/* Source: sgelsx.f */
13988#define sgelsx FORTRAN_WRAPPER(sgelsx)
13989extern void sgelsx(
13990 const ptrdiff_t *m,
13991 const ptrdiff_t *n,
13992 const ptrdiff_t *nrhs,
13993 float *a,
13994 const ptrdiff_t *lda,
13995 float *b,
13996 const ptrdiff_t *ldb,
13997 ptrdiff_t *jpvt,
13998 const float *rcond,
13999 ptrdiff_t *rank,
14000 float *work,
14001 ptrdiff_t *info
14002);
14003
14004/* Source: sgelsy.f */
14005#define sgelsy FORTRAN_WRAPPER(sgelsy)
14006extern void sgelsy(
14007 const ptrdiff_t *m,
14008 const ptrdiff_t *n,
14009 const ptrdiff_t *nrhs,
14010 float *a,
14011 const ptrdiff_t *lda,
14012 float *b,
14013 const ptrdiff_t *ldb,
14014 ptrdiff_t *jpvt,
14015 const float *rcond,
14016 ptrdiff_t *rank,
14017 float *work,
14018 const ptrdiff_t *lwork,
14019 ptrdiff_t *info
14020);
14021
14022/* Source: sgemqrt.f */
14023#define sgemqrt FORTRAN_WRAPPER(sgemqrt)
14024extern void sgemqrt(
14025 const char *side,
14026 const char *trans,
14027 const ptrdiff_t *m,
14028 const ptrdiff_t *n,
14029 const ptrdiff_t *k,
14030 const ptrdiff_t *nb,
14031 const float *v,
14032 const ptrdiff_t *ldv,
14033 const float *t,
14034 const ptrdiff_t *ldt,
14035 float *c,
14036 const ptrdiff_t *ldc,
14037 float *work,
14038 ptrdiff_t *info
14039);
14040
14041/* Source: sgeql2.f */
14042#define sgeql2 FORTRAN_WRAPPER(sgeql2)
14043extern void sgeql2(
14044 const ptrdiff_t *m,
14045 const ptrdiff_t *n,
14046 float *a,
14047 const ptrdiff_t *lda,
14048 float *tau,
14049 float *work,
14050 ptrdiff_t *info
14051);
14052
14053/* Source: sgeqlf.f */
14054#define sgeqlf FORTRAN_WRAPPER(sgeqlf)
14055extern void sgeqlf(
14056 const ptrdiff_t *m,
14057 const ptrdiff_t *n,
14058 float *a,
14059 const ptrdiff_t *lda,
14060 float *tau,
14061 float *work,
14062 const ptrdiff_t *lwork,
14063 ptrdiff_t *info
14064);
14065
14066/* Source: sgeqp3.f */
14067#define sgeqp3 FORTRAN_WRAPPER(sgeqp3)
14068extern void sgeqp3(
14069 const ptrdiff_t *m,
14070 const ptrdiff_t *n,
14071 float *a,
14072 const ptrdiff_t *lda,
14073 ptrdiff_t *jpvt,
14074 float *tau,
14075 float *work,
14076 const ptrdiff_t *lwork,
14077 ptrdiff_t *info
14078);
14079
14080/* Source: sgeqpf.f */
14081#define sgeqpf FORTRAN_WRAPPER(sgeqpf)
14082extern void sgeqpf(
14083 const ptrdiff_t *m,
14084 const ptrdiff_t *n,
14085 float *a,
14086 const ptrdiff_t *lda,
14087 ptrdiff_t *jpvt,
14088 float *tau,
14089 float *work,
14090 ptrdiff_t *info
14091);
14092
14093/* Source: sgeqr2.f */
14094#define sgeqr2 FORTRAN_WRAPPER(sgeqr2)
14095extern void sgeqr2(
14096 const ptrdiff_t *m,
14097 const ptrdiff_t *n,
14098 float *a,
14099 const ptrdiff_t *lda,
14100 float *tau,
14101 float *work,
14102 ptrdiff_t *info
14103);
14104
14105/* Source: sgeqr2p.f */
14106#define sgeqr2p FORTRAN_WRAPPER(sgeqr2p)
14107extern void sgeqr2p(
14108 const ptrdiff_t *m,
14109 const ptrdiff_t *n,
14110 float *a,
14111 const ptrdiff_t *lda,
14112 float *tau,
14113 float *work,
14114 ptrdiff_t *info
14115);
14116
14117/* Source: sgeqrf.f */
14118#define sgeqrf FORTRAN_WRAPPER(sgeqrf)
14119extern void sgeqrf(
14120 const ptrdiff_t *m,
14121 const ptrdiff_t *n,
14122 float *a,
14123 const ptrdiff_t *lda,
14124 float *tau,
14125 float *work,
14126 const ptrdiff_t *lwork,
14127 ptrdiff_t *info
14128);
14129
14130/* Source: sgeqrfp.f */
14131#define sgeqrfp FORTRAN_WRAPPER(sgeqrfp)
14132extern void sgeqrfp(
14133 const ptrdiff_t *m,
14134 const ptrdiff_t *n,
14135 float *a,
14136 const ptrdiff_t *lda,
14137 float *tau,
14138 float *work,
14139 const ptrdiff_t *lwork,
14140 ptrdiff_t *info
14141);
14142
14143/* Source: sgeqrt.f */
14144#define sgeqrt FORTRAN_WRAPPER(sgeqrt)
14145extern void sgeqrt(
14146 const ptrdiff_t *m,
14147 const ptrdiff_t *n,
14148 const ptrdiff_t *nb,
14149 float *a,
14150 const ptrdiff_t *lda,
14151 float *t,
14152 const ptrdiff_t *ldt,
14153 float *work,
14154 ptrdiff_t *info
14155);
14156
14157/* Source: sgeqrt2.f */
14158#define sgeqrt2 FORTRAN_WRAPPER(sgeqrt2)
14159extern void sgeqrt2(
14160 const ptrdiff_t *m,
14161 const ptrdiff_t *n,
14162 float *a,
14163 const ptrdiff_t *lda,
14164 float *t,
14165 const ptrdiff_t *ldt,
14166 ptrdiff_t *info
14167);
14168
14169/* Source: sgeqrt3.f */
14170#define sgeqrt3 FORTRAN_WRAPPER(sgeqrt3)
14171extern void sgeqrt3(
14172 const ptrdiff_t *m,
14173 const ptrdiff_t *n,
14174 float *a,
14175 const ptrdiff_t *lda,
14176 float *t,
14177 const ptrdiff_t *ldt,
14178 ptrdiff_t *info
14179);
14180
14181/* Source: sgerfs.f */
14182#define sgerfs FORTRAN_WRAPPER(sgerfs)
14183extern void sgerfs(
14184 const char *trans,
14185 const ptrdiff_t *n,
14186 const ptrdiff_t *nrhs,
14187 const float *a,
14188 const ptrdiff_t *lda,
14189 const float *af,
14190 const ptrdiff_t *ldaf,
14191 const ptrdiff_t *ipiv,
14192 const float *b,
14193 const ptrdiff_t *ldb,
14194 float *x,
14195 const ptrdiff_t *ldx,
14196 float *ferr,
14197 float *berr,
14198 float *work,
14199 ptrdiff_t *iwork,
14200 ptrdiff_t *info
14201);
14202
14203/* Source: sgerq2.f */
14204#define sgerq2 FORTRAN_WRAPPER(sgerq2)
14205extern void sgerq2(
14206 const ptrdiff_t *m,
14207 const ptrdiff_t *n,
14208 float *a,
14209 const ptrdiff_t *lda,
14210 float *tau,
14211 float *work,
14212 ptrdiff_t *info
14213);
14214
14215/* Source: sgerqf.f */
14216#define sgerqf FORTRAN_WRAPPER(sgerqf)
14217extern void sgerqf(
14218 const ptrdiff_t *m,
14219 const ptrdiff_t *n,
14220 float *a,
14221 const ptrdiff_t *lda,
14222 float *tau,
14223 float *work,
14224 const ptrdiff_t *lwork,
14225 ptrdiff_t *info
14226);
14227
14228/* Source: sgesc2.f */
14229#define sgesc2 FORTRAN_WRAPPER(sgesc2)
14230extern void sgesc2(
14231 const ptrdiff_t *n,
14232 const float *a,
14233 const ptrdiff_t *lda,
14234 float *rhs,
14235 const ptrdiff_t *ipiv,
14236 const ptrdiff_t *jpiv,
14237 float *scale
14238);
14239
14240/* Source: sgesdd.f */
14241#define sgesdd FORTRAN_WRAPPER(sgesdd)
14242extern void sgesdd(
14243 const char *jobz,
14244 const ptrdiff_t *m,
14245 const ptrdiff_t *n,
14246 float *a,
14247 const ptrdiff_t *lda,
14248 float *s,
14249 float *u,
14250 const ptrdiff_t *ldu,
14251 float *vt,
14252 const ptrdiff_t *ldvt,
14253 float *work,
14254 const ptrdiff_t *lwork,
14255 ptrdiff_t *iwork,
14256 ptrdiff_t *info
14257);
14258
14259/* Source: sgesv.f */
14260#define sgesv FORTRAN_WRAPPER(sgesv)
14261extern void sgesv(
14262 const ptrdiff_t *n,
14263 const ptrdiff_t *nrhs,
14264 float *a,
14265 const ptrdiff_t *lda,
14266 ptrdiff_t *ipiv,
14267 float *b,
14268 const ptrdiff_t *ldb,
14269 ptrdiff_t *info
14270);
14271
14272/* Source: sgesvd.f */
14273#define sgesvd FORTRAN_WRAPPER(sgesvd)
14274extern void sgesvd(
14275 const char *jobu,
14276 const char *jobvt,
14277 const ptrdiff_t *m,
14278 const ptrdiff_t *n,
14279 float *a,
14280 const ptrdiff_t *lda,
14281 float *s,
14282 float *u,
14283 const ptrdiff_t *ldu,
14284 float *vt,
14285 const ptrdiff_t *ldvt,
14286 float *work,
14287 const ptrdiff_t *lwork,
14288 ptrdiff_t *info
14289);
14290
14291/* Source: sgesvj.f */
14292#define sgesvj FORTRAN_WRAPPER(sgesvj)
14293extern void sgesvj(
14294 const char *joba,
14295 const char *jobu,
14296 const char *jobv,
14297 const ptrdiff_t *m,
14298 const ptrdiff_t *n,
14299 float *a,
14300 const ptrdiff_t *lda,
14301 float *sva,
14302 const ptrdiff_t *mv,
14303 float *v,
14304 const ptrdiff_t *ldv,
14305 float *work,
14306 ptrdiff_t *lwork,
14307 ptrdiff_t *info
14308);
14309
14310/* Source: sgesvx.f */
14311#define sgesvx FORTRAN_WRAPPER(sgesvx)
14312extern void sgesvx(
14313 const char *fact,
14314 const char *trans,
14315 const ptrdiff_t *n,
14316 const ptrdiff_t *nrhs,
14317 float *a,
14318 const ptrdiff_t *lda,
14319 float *af,
14320 const ptrdiff_t *ldaf,
14321 ptrdiff_t *ipiv,
14322 char *equed,
14323 float *r,
14324 float *c,
14325 float *b,
14326 const ptrdiff_t *ldb,
14327 float *x,
14328 const ptrdiff_t *ldx,
14329 float *rcond,
14330 float *ferr,
14331 float *berr,
14332 float *work,
14333 ptrdiff_t *iwork,
14334 ptrdiff_t *info
14335);
14336
14337/* Source: sgetc2.f */
14338#define sgetc2 FORTRAN_WRAPPER(sgetc2)
14339extern void sgetc2(
14340 const ptrdiff_t *n,
14341 float *a,
14342 const ptrdiff_t *lda,
14343 ptrdiff_t *ipiv,
14344 ptrdiff_t *jpiv,
14345 ptrdiff_t *info
14346);
14347
14348/* Source: sgetf2.f */
14349#define sgetf2 FORTRAN_WRAPPER(sgetf2)
14350extern void sgetf2(
14351 const ptrdiff_t *m,
14352 const ptrdiff_t *n,
14353 float *a,
14354 const ptrdiff_t *lda,
14355 ptrdiff_t *ipiv,
14356 ptrdiff_t *info
14357);
14358
14359/* Source: sgetrf.f */
14360#define sgetrf FORTRAN_WRAPPER(sgetrf)
14361extern void sgetrf(
14362 const ptrdiff_t *m,
14363 const ptrdiff_t *n,
14364 float *a,
14365 const ptrdiff_t *lda,
14366 ptrdiff_t *ipiv,
14367 ptrdiff_t *info
14368);
14369
14370/* Source: sgetri.f */
14371#define sgetri FORTRAN_WRAPPER(sgetri)
14372extern void sgetri(
14373 const ptrdiff_t *n,
14374 float *a,
14375 const ptrdiff_t *lda,
14376 const ptrdiff_t *ipiv,
14377 float *work,
14378 const ptrdiff_t *lwork,
14379 ptrdiff_t *info
14380);
14381
14382/* Source: sgetrs.f */
14383#define sgetrs FORTRAN_WRAPPER(sgetrs)
14384extern void sgetrs(
14385 const char *trans,
14386 const ptrdiff_t *n,
14387 const ptrdiff_t *nrhs,
14388 const float *a,
14389 const ptrdiff_t *lda,
14390 const ptrdiff_t *ipiv,
14391 float *b,
14392 const ptrdiff_t *ldb,
14393 ptrdiff_t *info
14394);
14395
14396/* Source: sggbak.f */
14397#define sggbak FORTRAN_WRAPPER(sggbak)
14398extern void sggbak(
14399 const char *job,
14400 const char *side,
14401 const ptrdiff_t *n,
14402 const ptrdiff_t *ilo,
14403 const ptrdiff_t *ihi,
14404 const float *lscale,
14405 const float *rscale,
14406 const ptrdiff_t *m,
14407 float *v,
14408 const ptrdiff_t *ldv,
14409 ptrdiff_t *info
14410);
14411
14412/* Source: sggbal.f */
14413#define sggbal FORTRAN_WRAPPER(sggbal)
14414extern void sggbal(
14415 const char *job,
14416 const ptrdiff_t *n,
14417 float *a,
14418 const ptrdiff_t *lda,
14419 float *b,
14420 const ptrdiff_t *ldb,
14421 ptrdiff_t *ilo,
14422 ptrdiff_t *ihi,
14423 float *lscale,
14424 float *rscale,
14425 float *work,
14426 ptrdiff_t *info
14427);
14428
14429/* Source: sgges.f */
14430#define sgges FORTRAN_WRAPPER(sgges)
14431extern void sgges(
14432 const char *jobvsl,
14433 const char *jobvsr,
14434 const char *sort,
14435 ptrdiff_t (*selctg)(),
14436 const ptrdiff_t *n,
14437 float *a,
14438 const ptrdiff_t *lda,
14439 float *b,
14440 const ptrdiff_t *ldb,
14441 ptrdiff_t *sdim,
14442 float *alphar,
14443 float *alphai,
14444 float *beta,
14445 float *vsl,
14446 const ptrdiff_t *ldvsl,
14447 float *vsr,
14448 const ptrdiff_t *ldvsr,
14449 float *work,
14450 const ptrdiff_t *lwork,
14451 ptrdiff_t *bwork,
14452 ptrdiff_t *info
14453);
14454
14455/* Source: sggesx.f */
14456#define sggesx FORTRAN_WRAPPER(sggesx)
14457extern void sggesx(
14458 const char *jobvsl,
14459 const char *jobvsr,
14460 const char *sort,
14461 ptrdiff_t (*selctg)(),
14462 const char *sense,
14463 const ptrdiff_t *n,
14464 float *a,
14465 const ptrdiff_t *lda,
14466 float *b,
14467 const ptrdiff_t *ldb,
14468 ptrdiff_t *sdim,
14469 float *alphar,
14470 float *alphai,
14471 float *beta,
14472 float *vsl,
14473 const ptrdiff_t *ldvsl,
14474 float *vsr,
14475 const ptrdiff_t *ldvsr,
14476 float *rconde,
14477 float *rcondv,
14478 float *work,
14479 const ptrdiff_t *lwork,
14480 ptrdiff_t *iwork,
14481 const ptrdiff_t *liwork,
14482 ptrdiff_t *bwork,
14483 ptrdiff_t *info
14484);
14485
14486/* Source: sggev.f */
14487#define sggev FORTRAN_WRAPPER(sggev)
14488extern void sggev(
14489 const char *jobvl,
14490 const char *jobvr,
14491 const ptrdiff_t *n,
14492 float *a,
14493 const ptrdiff_t *lda,
14494 float *b,
14495 const ptrdiff_t *ldb,
14496 float *alphar,
14497 float *alphai,
14498 float *beta,
14499 float *vl,
14500 const ptrdiff_t *ldvl,
14501 float *vr,
14502 const ptrdiff_t *ldvr,
14503 float *work,
14504 const ptrdiff_t *lwork,
14505 ptrdiff_t *info
14506);
14507
14508/* Source: sggevx.f */
14509#define sggevx FORTRAN_WRAPPER(sggevx)
14510extern void sggevx(
14511 const char *balanc,
14512 const char *jobvl,
14513 const char *jobvr,
14514 const char *sense,
14515 const ptrdiff_t *n,
14516 float *a,
14517 const ptrdiff_t *lda,
14518 float *b,
14519 const ptrdiff_t *ldb,
14520 float *alphar,
14521 float *alphai,
14522 float *beta,
14523 float *vl,
14524 const ptrdiff_t *ldvl,
14525 float *vr,
14526 const ptrdiff_t *ldvr,
14527 ptrdiff_t *ilo,
14528 ptrdiff_t *ihi,
14529 float *lscale,
14530 float *rscale,
14531 float *abnrm,
14532 float *bbnrm,
14533 float *rconde,
14534 float *rcondv,
14535 float *work,
14536 const ptrdiff_t *lwork,
14537 ptrdiff_t *iwork,
14538 ptrdiff_t *bwork,
14539 ptrdiff_t *info
14540);
14541
14542/* Source: sggglm.f */
14543#define sggglm FORTRAN_WRAPPER(sggglm)
14544extern void sggglm(
14545 const ptrdiff_t *n,
14546 const ptrdiff_t *m,
14547 const ptrdiff_t *p,
14548 float *a,
14549 const ptrdiff_t *lda,
14550 float *b,
14551 const ptrdiff_t *ldb,
14552 float *d,
14553 float *x,
14554 float *y,
14555 float *work,
14556 const ptrdiff_t *lwork,
14557 ptrdiff_t *info
14558);
14559
14560/* Source: sgghrd.f */
14561#define sgghrd FORTRAN_WRAPPER(sgghrd)
14562extern void sgghrd(
14563 const char *compq,
14564 const char *compz,
14565 const ptrdiff_t *n,
14566 const ptrdiff_t *ilo,
14567 const ptrdiff_t *ihi,
14568 float *a,
14569 const ptrdiff_t *lda,
14570 float *b,
14571 const ptrdiff_t *ldb,
14572 float *q,
14573 const ptrdiff_t *ldq,
14574 float *z,
14575 const ptrdiff_t *ldz,
14576 ptrdiff_t *info
14577);
14578
14579/* Source: sgglse.f */
14580#define sgglse FORTRAN_WRAPPER(sgglse)
14581extern void sgglse(
14582 const ptrdiff_t *m,
14583 const ptrdiff_t *n,
14584 const ptrdiff_t *p,
14585 float *a,
14586 const ptrdiff_t *lda,
14587 float *b,
14588 const ptrdiff_t *ldb,
14589 float *c,
14590 float *d,
14591 float *x,
14592 float *work,
14593 const ptrdiff_t *lwork,
14594 ptrdiff_t *info
14595);
14596
14597/* Source: sggqrf.f */
14598#define sggqrf FORTRAN_WRAPPER(sggqrf)
14599extern void sggqrf(
14600 const ptrdiff_t *n,
14601 const ptrdiff_t *m,
14602 const ptrdiff_t *p,
14603 float *a,
14604 const ptrdiff_t *lda,
14605 float *taua,
14606 float *b,
14607 const ptrdiff_t *ldb,
14608 float *taub,
14609 float *work,
14610 const ptrdiff_t *lwork,
14611 ptrdiff_t *info
14612);
14613
14614/* Source: sggrqf.f */
14615#define sggrqf FORTRAN_WRAPPER(sggrqf)
14616extern void sggrqf(
14617 const ptrdiff_t *m,
14618 const ptrdiff_t *p,
14619 const ptrdiff_t *n,
14620 float *a,
14621 const ptrdiff_t *lda,
14622 float *taua,
14623 float *b,
14624 const ptrdiff_t *ldb,
14625 float *taub,
14626 float *work,
14627 const ptrdiff_t *lwork,
14628 ptrdiff_t *info
14629);
14630
14631/* Source: sggsvd.f */
14632#define sggsvd FORTRAN_WRAPPER(sggsvd)
14633extern void sggsvd(
14634 const char *jobu,
14635 const char *jobv,
14636 const char *jobq,
14637 const ptrdiff_t *m,
14638 const ptrdiff_t *n,
14639 const ptrdiff_t *p,
14640 ptrdiff_t *k,
14641 ptrdiff_t *l,
14642 float *a,
14643 const ptrdiff_t *lda,
14644 float *b,
14645 const ptrdiff_t *ldb,
14646 float *alpha,
14647 float *beta,
14648 float *u,
14649 const ptrdiff_t *ldu,
14650 float *v,
14651 const ptrdiff_t *ldv,
14652 float *q,
14653 const ptrdiff_t *ldq,
14654 float *work,
14655 ptrdiff_t *iwork,
14656 ptrdiff_t *info
14657);
14658
14659/* Source: sggsvp.f */
14660#define sggsvp FORTRAN_WRAPPER(sggsvp)
14661extern void sggsvp(
14662 const char *jobu,
14663 const char *jobv,
14664 const char *jobq,
14665 const ptrdiff_t *m,
14666 const ptrdiff_t *p,
14667 const ptrdiff_t *n,
14668 float *a,
14669 const ptrdiff_t *lda,
14670 float *b,
14671 const ptrdiff_t *ldb,
14672 const float *tola,
14673 const float *tolb,
14674 ptrdiff_t *k,
14675 ptrdiff_t *l,
14676 float *u,
14677 const ptrdiff_t *ldu,
14678 float *v,
14679 const ptrdiff_t *ldv,
14680 float *q,
14681 const ptrdiff_t *ldq,
14682 ptrdiff_t *iwork,
14683 float *tau,
14684 float *work,
14685 ptrdiff_t *info
14686);
14687
14688/* Source: sgsvj0.f */
14689#define sgsvj0 FORTRAN_WRAPPER(sgsvj0)
14690extern void sgsvj0(
14691 const char *jobv,
14692 const ptrdiff_t *m,
14693 const ptrdiff_t *n,
14694 float *a,
14695 const ptrdiff_t *lda,
14696 float *d,
14697 float *sva,
14698 const ptrdiff_t *mv,
14699 float *v,
14700 const ptrdiff_t *ldv,
14701 const float *eps,
14702 const float *sfmin,
14703 const float *tol,
14704 const ptrdiff_t *nsweep,
14705 float *work,
14706 const ptrdiff_t *lwork,
14707 ptrdiff_t *info
14708);
14709
14710/* Source: sgsvj1.f */
14711#define sgsvj1 FORTRAN_WRAPPER(sgsvj1)
14712extern void sgsvj1(
14713 const char *jobv,
14714 const ptrdiff_t *m,
14715 const ptrdiff_t *n,
14716 const ptrdiff_t *n1,
14717 float *a,
14718 const ptrdiff_t *lda,
14719 float *d,
14720 float *sva,
14721 const ptrdiff_t *mv,
14722 float *v,
14723 const ptrdiff_t *ldv,
14724 const float *eps,
14725 const float *sfmin,
14726 const float *tol,
14727 const ptrdiff_t *nsweep,
14728 float *work,
14729 const ptrdiff_t *lwork,
14730 ptrdiff_t *info
14731);
14732
14733/* Source: sgtcon.f */
14734#define sgtcon FORTRAN_WRAPPER(sgtcon)
14735extern void sgtcon(
14736 const char *norm,
14737 const ptrdiff_t *n,
14738 const float *dl,
14739 const float *d,
14740 const float *du,
14741 const float *du2,
14742 const ptrdiff_t *ipiv,
14743 const float *anorm,
14744 float *rcond,
14745 float *work,
14746 ptrdiff_t *iwork,
14747 ptrdiff_t *info
14748);
14749
14750/* Source: sgtrfs.f */
14751#define sgtrfs FORTRAN_WRAPPER(sgtrfs)
14752extern void sgtrfs(
14753 const char *trans,
14754 const ptrdiff_t *n,
14755 const ptrdiff_t *nrhs,
14756 const float *dl,
14757 const float *d,
14758 const float *du,
14759 const float *dlf,
14760 const float *df,
14761 const float *duf,
14762 const float *du2,
14763 const ptrdiff_t *ipiv,
14764 const float *b,
14765 const ptrdiff_t *ldb,
14766 float *x,
14767 const ptrdiff_t *ldx,
14768 float *ferr,
14769 float *berr,
14770 float *work,
14771 ptrdiff_t *iwork,
14772 ptrdiff_t *info
14773);
14774
14775/* Source: sgtsv.f */
14776#define sgtsv FORTRAN_WRAPPER(sgtsv)
14777extern void sgtsv(
14778 const ptrdiff_t *n,
14779 const ptrdiff_t *nrhs,
14780 float *dl,
14781 float *d,
14782 float *du,
14783 float *b,
14784 const ptrdiff_t *ldb,
14785 ptrdiff_t *info
14786);
14787
14788/* Source: sgtsvx.f */
14789#define sgtsvx FORTRAN_WRAPPER(sgtsvx)
14790extern void sgtsvx(
14791 const char *fact,
14792 const char *trans,
14793 const ptrdiff_t *n,
14794 const ptrdiff_t *nrhs,
14795 const float *dl,
14796 const float *d,
14797 const float *du,
14798 float *dlf,
14799 float *df,
14800 float *duf,
14801 float *du2,
14802 ptrdiff_t *ipiv,
14803 const float *b,
14804 const ptrdiff_t *ldb,
14805 float *x,
14806 const ptrdiff_t *ldx,
14807 float *rcond,
14808 float *ferr,
14809 float *berr,
14810 float *work,
14811 ptrdiff_t *iwork,
14812 ptrdiff_t *info
14813);
14814
14815/* Source: sgttrf.f */
14816#define sgttrf FORTRAN_WRAPPER(sgttrf)
14817extern void sgttrf(
14818 const ptrdiff_t *n,
14819 float *dl,
14820 float *d,
14821 float *du,
14822 float *du2,
14823 ptrdiff_t *ipiv,
14824 ptrdiff_t *info
14825);
14826
14827/* Source: sgttrs.f */
14828#define sgttrs FORTRAN_WRAPPER(sgttrs)
14829extern void sgttrs(
14830 const char *trans,
14831 const ptrdiff_t *n,
14832 const ptrdiff_t *nrhs,
14833 const float *dl,
14834 const float *d,
14835 const float *du,
14836 const float *du2,
14837 const ptrdiff_t *ipiv,
14838 float *b,
14839 const ptrdiff_t *ldb,
14840 ptrdiff_t *info
14841);
14842
14843/* Source: sgtts2.f */
14844#define sgtts2 FORTRAN_WRAPPER(sgtts2)
14845extern void sgtts2(
14846 const ptrdiff_t *itrans,
14847 const ptrdiff_t *n,
14848 const ptrdiff_t *nrhs,
14849 const float *dl,
14850 const float *d,
14851 const float *du,
14852 const float *du2,
14853 const ptrdiff_t *ipiv,
14854 float *b,
14855 const ptrdiff_t *ldb
14856);
14857
14858/* Source: shgeqz.f */
14859#define shgeqz FORTRAN_WRAPPER(shgeqz)
14860extern void shgeqz(
14861 const char *job,
14862 const char *compq,
14863 const char *compz,
14864 const ptrdiff_t *n,
14865 const ptrdiff_t *ilo,
14866 const ptrdiff_t *ihi,
14867 float *h,
14868 const ptrdiff_t *ldh,
14869 float *t,
14870 const ptrdiff_t *ldt,
14871 float *alphar,
14872 float *alphai,
14873 float *beta,
14874 float *q,
14875 const ptrdiff_t *ldq,
14876 float *z,
14877 const ptrdiff_t *ldz,
14878 float *work,
14879 const ptrdiff_t *lwork,
14880 ptrdiff_t *info
14881);
14882
14883/* Source: shsein.f */
14884#define shsein FORTRAN_WRAPPER(shsein)
14885extern void shsein(
14886 const char *side,
14887 const char *eigsrc,
14888 const char *initv,
14889 ptrdiff_t *select,
14890 const ptrdiff_t *n,
14891 const float *h,
14892 const ptrdiff_t *ldh,
14893 float *wr,
14894 const float *wi,
14895 float *vl,
14896 const ptrdiff_t *ldvl,
14897 float *vr,
14898 const ptrdiff_t *ldvr,
14899 const ptrdiff_t *mm,
14900 ptrdiff_t *m,
14901 float *work,
14902 ptrdiff_t *ifaill,
14903 ptrdiff_t *ifailr,
14904 ptrdiff_t *info
14905);
14906
14907/* Source: shseqr.f */
14908#define shseqr FORTRAN_WRAPPER(shseqr)
14909extern void shseqr(
14910 const char *job,
14911 const char *compz,
14912 const ptrdiff_t *n,
14913 const ptrdiff_t *ilo,
14914 const ptrdiff_t *ihi,
14915 float *h,
14916 const ptrdiff_t *ldh,
14917 float *wr,
14918 float *wi,
14919 float *z,
14920 const ptrdiff_t *ldz,
14921 float *work,
14922 const ptrdiff_t *lwork,
14923 ptrdiff_t *info
14924);
14925
14926/* Source: sisnan.f */
14927#define sisnan FORTRAN_WRAPPER(sisnan)
14928extern ptrdiff_t sisnan(
14929 const float *sin
14930);
14931
14932/* Source: slabad.f */
14933#define slabad FORTRAN_WRAPPER(slabad)
14934extern void slabad(
14935 float *small,
14936 float *large
14937);
14938
14939/* Source: slabrd.f */
14940#define slabrd FORTRAN_WRAPPER(slabrd)
14941extern void slabrd(
14942 const ptrdiff_t *m,
14943 const ptrdiff_t *n,
14944 const ptrdiff_t *nb,
14945 float *a,
14946 const ptrdiff_t *lda,
14947 float *d,
14948 float *e,
14949 float *tauq,
14950 float *taup,
14951 float *x,
14952 const ptrdiff_t *ldx,
14953 float *y,
14954 const ptrdiff_t *ldy
14955);
14956
14957/* Source: slacn2.f */
14958#define slacn2 FORTRAN_WRAPPER(slacn2)
14959extern void slacn2(
14960 const ptrdiff_t *n,
14961 float *v,
14962 float *x,
14963 ptrdiff_t *isgn,
14964 float *est,
14965 ptrdiff_t *kase,
14966 ptrdiff_t *isave
14967);
14968
14969/* Source: slacon.f */
14970#define slacon FORTRAN_WRAPPER(slacon)
14971extern void slacon(
14972 const ptrdiff_t *n,
14973 float *v,
14974 float *x,
14975 ptrdiff_t *isgn,
14976 float *est,
14977 ptrdiff_t *kase
14978);
14979
14980/* Source: slacpy.f */
14981#define slacpy FORTRAN_WRAPPER(slacpy)
14982extern void slacpy(
14983 const char *uplo,
14984 const ptrdiff_t *m,
14985 const ptrdiff_t *n,
14986 const float *a,
14987 const ptrdiff_t *lda,
14988 float *b,
14989 const ptrdiff_t *ldb
14990);
14991
14992/* Source: sladiv.f */
14993#define sladiv FORTRAN_WRAPPER(sladiv)
14994extern void sladiv(
14995 const float *a,
14996 const float *b,
14997 const float *c,
14998 const float *d,
14999 float *p,
15000 float *q
15001);
15002
15003/* Source: sladiv.f */
15004#define sladiv1 FORTRAN_WRAPPER(sladiv1)
15005extern void sladiv1(
15006 const float *a,
15007 const float *b,
15008 const float *c,
15009 const float *d,
15010 float *p,
15011 float *q
15012);
15013
15014/* Source: sladiv.f */
15015#define sladiv2 FORTRAN_WRAPPER(sladiv2)
15016#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15017extern double sladiv2(
15018#else
15019extern float sladiv2(
15020#endif
15021 const float *a,
15022 const float *b,
15023 const float *c,
15024 const float *d,
15025 float *r,
15026 float *t
15027);
15028
15029/* Source: slae2.f */
15030#define slae2 FORTRAN_WRAPPER(slae2)
15031extern void slae2(
15032 const float *a,
15033 const float *b,
15034 const float *c,
15035 float *rt1,
15036 float *rt2
15037);
15038
15039/* Source: slaebz.f */
15040#define slaebz FORTRAN_WRAPPER(slaebz)
15041extern void slaebz(
15042 const ptrdiff_t *ijob,
15043 const ptrdiff_t *nitmax,
15044 const ptrdiff_t *n,
15045 const ptrdiff_t *mmax,
15046 const ptrdiff_t *minp,
15047 const ptrdiff_t *nbmin,
15048 const float *abstol,
15049 const float *reltol,
15050 const float *pivmin,
15051 const float *d,
15052 const float *e,
15053 const float *e2,
15054 ptrdiff_t *nval,
15055 float *ab,
15056 float *c,
15057 ptrdiff_t *mout,
15058 ptrdiff_t *nab,
15059 float *work,
15060 ptrdiff_t *iwork,
15061 ptrdiff_t *info
15062);
15063
15064/* Source: slaed0.f */
15065#define slaed0 FORTRAN_WRAPPER(slaed0)
15066extern void slaed0(
15067 const ptrdiff_t *icompq,
15068 const ptrdiff_t *qsiz,
15069 const ptrdiff_t *n,
15070 float *d,
15071 const float *e,
15072 float *q,
15073 const ptrdiff_t *ldq,
15074 float *qstore,
15075 const ptrdiff_t *ldqs,
15076 float *work,
15077 ptrdiff_t *iwork,
15078 ptrdiff_t *info
15079);
15080
15081/* Source: slaed1.f */
15082#define slaed1 FORTRAN_WRAPPER(slaed1)
15083extern void slaed1(
15084 const ptrdiff_t *n,
15085 float *d,
15086 float *q,
15087 const ptrdiff_t *ldq,
15088 ptrdiff_t *indxq,
15089 const float *rho,
15090 const ptrdiff_t *cutpnt,
15091 float *work,
15092 ptrdiff_t *iwork,
15093 ptrdiff_t *info
15094);
15095
15096/* Source: slaed2.f */
15097#define slaed2 FORTRAN_WRAPPER(slaed2)
15098extern void slaed2(
15099 ptrdiff_t *k,
15100 const ptrdiff_t *n,
15101 const ptrdiff_t *n1,
15102 float *d,
15103 float *q,
15104 const ptrdiff_t *ldq,
15105 ptrdiff_t *indxq,
15106 float *rho,
15107 const float *z,
15108 float *dlamda,
15109 float *w,
15110 float *q2,
15111 ptrdiff_t *indx,
15112 ptrdiff_t *indxc,
15113 ptrdiff_t *indxp,
15114 ptrdiff_t *coltyp,
15115 ptrdiff_t *info
15116);
15117
15118/* Source: slaed3.f */
15119#define slaed3 FORTRAN_WRAPPER(slaed3)
15120extern void slaed3(
15121 const ptrdiff_t *k,
15122 const ptrdiff_t *n,
15123 const ptrdiff_t *n1,
15124 float *d,
15125 float *q,
15126 const ptrdiff_t *ldq,
15127 const float *rho,
15128 float *dlamda,
15129 const float *q2,
15130 const ptrdiff_t *indx,
15131 const ptrdiff_t *ctot,
15132 float *w,
15133 float *s,
15134 ptrdiff_t *info
15135);
15136
15137/* Source: slaed4.f */
15138#define slaed4 FORTRAN_WRAPPER(slaed4)
15139extern void slaed4(
15140 const ptrdiff_t *n,
15141 const ptrdiff_t *i,
15142 const float *d,
15143 const float *z,
15144 float *delta,
15145 const float *rho,
15146 float *dlam,
15147 ptrdiff_t *info
15148);
15149
15150/* Source: slaed5.f */
15151#define slaed5 FORTRAN_WRAPPER(slaed5)
15152extern void slaed5(
15153 const ptrdiff_t *i,
15154 const float *d,
15155 const float *z,
15156 float *delta,
15157 const float *rho,
15158 float *dlam
15159);
15160
15161/* Source: slaed6.f */
15162#define slaed6 FORTRAN_WRAPPER(slaed6)
15163extern void slaed6(
15164 const ptrdiff_t *kniter,
15165 const ptrdiff_t *orgati,
15166 const float *rho,
15167 const float *d,
15168 const float *z,
15169 const float *finit,
15170 float *tau,
15171 ptrdiff_t *info
15172);
15173
15174/* Source: slaed7.f */
15175#define slaed7 FORTRAN_WRAPPER(slaed7)
15176extern void slaed7(
15177 const ptrdiff_t *icompq,
15178 const ptrdiff_t *n,
15179 const ptrdiff_t *qsiz,
15180 const ptrdiff_t *tlvls,
15181 const ptrdiff_t *curlvl,
15182 const ptrdiff_t *curpbm,
15183 float *d,
15184 float *q,
15185 const ptrdiff_t *ldq,
15186 ptrdiff_t *indxq,
15187 const float *rho,
15188 const ptrdiff_t *cutpnt,
15189 float *qstore,
15190 ptrdiff_t *qptr,
15191 const ptrdiff_t *prmptr,
15192 const ptrdiff_t *perm,
15193 const ptrdiff_t *givptr,
15194 const ptrdiff_t *givcol,
15195 const float *givnum,
15196 float *work,
15197 ptrdiff_t *iwork,
15198 ptrdiff_t *info
15199);
15200
15201/* Source: slaed8.f */
15202#define slaed8 FORTRAN_WRAPPER(slaed8)
15203extern void slaed8(
15204 const ptrdiff_t *icompq,
15205 ptrdiff_t *k,
15206 const ptrdiff_t *n,
15207 const ptrdiff_t *qsiz,
15208 float *d,
15209 float *q,
15210 const ptrdiff_t *ldq,
15211 const ptrdiff_t *indxq,
15212 float *rho,
15213 const ptrdiff_t *cutpnt,
15214 const float *z,
15215 float *dlamda,
15216 float *q2,
15217 const ptrdiff_t *ldq2,
15218 float *w,
15219 ptrdiff_t *perm,
15220 ptrdiff_t *givptr,
15221 ptrdiff_t *givcol,
15222 float *givnum,
15223 ptrdiff_t *indxp,
15224 ptrdiff_t *indx,
15225 ptrdiff_t *info
15226);
15227
15228/* Source: slaed9.f */
15229#define slaed9 FORTRAN_WRAPPER(slaed9)
15230extern void slaed9(
15231 const ptrdiff_t *k,
15232 const ptrdiff_t *kstart,
15233 const ptrdiff_t *kstop,
15234 const ptrdiff_t *n,
15235 float *d,
15236 float *q,
15237 const ptrdiff_t *ldq,
15238 const float *rho,
15239 const float *dlamda,
15240 const float *w,
15241 float *s,
15242 const ptrdiff_t *lds,
15243 ptrdiff_t *info
15244);
15245
15246/* Source: slaeda.f */
15247#define slaeda FORTRAN_WRAPPER(slaeda)
15248extern void slaeda(
15249 const ptrdiff_t *n,
15250 const ptrdiff_t *tlvls,
15251 const ptrdiff_t *curlvl,
15252 const ptrdiff_t *curpbm,
15253 const ptrdiff_t *prmptr,
15254 const ptrdiff_t *perm,
15255 const ptrdiff_t *givptr,
15256 const ptrdiff_t *givcol,
15257 const float *givnum,
15258 const float *q,
15259 const ptrdiff_t *qptr,
15260 float *z,
15261 float *ztemp,
15262 ptrdiff_t *info
15263);
15264
15265/* Source: slaein.f */
15266#define slaein FORTRAN_WRAPPER(slaein)
15267extern void slaein(
15268 const ptrdiff_t *rightv,
15269 const ptrdiff_t *noinit,
15270 const ptrdiff_t *n,
15271 const float *h,
15272 const ptrdiff_t *ldh,
15273 const float *wr,
15274 const float *wi,
15275 float *vr,
15276 float *vi,
15277 float *b,
15278 const ptrdiff_t *ldb,
15279 float *work,
15280 const float *eps3,
15281 const float *smlnum,
15282 const float *bignum,
15283 ptrdiff_t *info
15284);
15285
15286/* Source: slaev2.f */
15287#define slaev2 FORTRAN_WRAPPER(slaev2)
15288extern void slaev2(
15289 const float *a,
15290 const float *b,
15291 const float *c,
15292 float *rt1,
15293 float *rt2,
15294 float *cs1,
15295 float *sn1
15296);
15297
15298/* Source: slaexc.f */
15299#define slaexc FORTRAN_WRAPPER(slaexc)
15300extern void slaexc(
15301 const ptrdiff_t *wantq,
15302 const ptrdiff_t *n,
15303 float *t,
15304 const ptrdiff_t *ldt,
15305 float *q,
15306 const ptrdiff_t *ldq,
15307 const ptrdiff_t *j1_,
15308 const ptrdiff_t *n1,
15309 const ptrdiff_t *n2,
15310 float *work,
15311 ptrdiff_t *info
15312);
15313
15314/* Source: slag2.f */
15315#define slag2 FORTRAN_WRAPPER(slag2)
15316extern void slag2(
15317 const float *a,
15318 const ptrdiff_t *lda,
15319 const float *b,
15320 const ptrdiff_t *ldb,
15321 const float *safmin,
15322 float *scale1,
15323 float *scale2,
15324 float *wr1,
15325 float *wr2,
15326 float *wi
15327);
15328
15329/* Source: slag2d.f */
15330#define slag2d FORTRAN_WRAPPER(slag2d)
15331extern void slag2d(
15332 const ptrdiff_t *m,
15333 const ptrdiff_t *n,
15334 const float *sa,
15335 const ptrdiff_t *ldsa,
15336 double *a,
15337 const ptrdiff_t *lda,
15338 ptrdiff_t *info
15339);
15340
15341/* Source: slags2.f */
15342#define slags2 FORTRAN_WRAPPER(slags2)
15343extern void slags2(
15344 const ptrdiff_t *upper,
15345 const float *a1,
15346 const float *a2,
15347 const float *a3,
15348 const float *b1,
15349 const float *b2,
15350 const float *b3,
15351 float *csu,
15352 float *snu,
15353 float *csv,
15354 float *snv,
15355 float *csq,
15356 float *snq
15357);
15358
15359/* Source: slagtf.f */
15360#define slagtf FORTRAN_WRAPPER(slagtf)
15361extern void slagtf(
15362 const ptrdiff_t *n,
15363 float *a,
15364 const float *lambda,
15365 float *b,
15366 float *c,
15367 const float *tol,
15368 float *d,
15369 ptrdiff_t *in,
15370 ptrdiff_t *info
15371);
15372
15373/* Source: slagtm.f */
15374#define slagtm FORTRAN_WRAPPER(slagtm)
15375extern void slagtm(
15376 const char *trans,
15377 const ptrdiff_t *n,
15378 const ptrdiff_t *nrhs,
15379 const float *alpha,
15380 const float *dl,
15381 const float *d,
15382 const float *du,
15383 const float *x,
15384 const ptrdiff_t *ldx,
15385 const float *beta,
15386 float *b,
15387 const ptrdiff_t *ldb
15388);
15389
15390/* Source: slagts.f */
15391#define slagts FORTRAN_WRAPPER(slagts)
15392extern void slagts(
15393 const ptrdiff_t *job,
15394 const ptrdiff_t *n,
15395 const float *a,
15396 const float *b,
15397 const float *c,
15398 const float *d,
15399 const ptrdiff_t *in,
15400 float *y,
15401 float *tol,
15402 ptrdiff_t *info
15403);
15404
15405/* Source: slagv2.f */
15406#define slagv2 FORTRAN_WRAPPER(slagv2)
15407extern void slagv2(
15408 float *a,
15409 const ptrdiff_t *lda,
15410 float *b,
15411 const ptrdiff_t *ldb,
15412 float *alphar,
15413 float *alphai,
15414 float *beta,
15415 float *csl,
15416 float *snl,
15417 float *csr,
15418 float *snr
15419);
15420
15421/* Source: slahqr.f */
15422#define slahqr FORTRAN_WRAPPER(slahqr)
15423extern void slahqr(
15424 const ptrdiff_t *wantt,
15425 const ptrdiff_t *wantz,
15426 const ptrdiff_t *n,
15427 const ptrdiff_t *ilo,
15428 const ptrdiff_t *ihi,
15429 float *h,
15430 const ptrdiff_t *ldh,
15431 float *wr,
15432 float *wi,
15433 const ptrdiff_t *iloz,
15434 const ptrdiff_t *ihiz,
15435 float *z,
15436 const ptrdiff_t *ldz,
15437 ptrdiff_t *info
15438);
15439
15440/* Source: slahr2.f */
15441#define slahr2 FORTRAN_WRAPPER(slahr2)
15442extern void slahr2(
15443 const ptrdiff_t *n,
15444 const ptrdiff_t *k,
15445 const ptrdiff_t *nb,
15446 float *a,
15447 const ptrdiff_t *lda,
15448 float *tau,
15449 float *t,
15450 const ptrdiff_t *ldt,
15451 float *y,
15452 const ptrdiff_t *ldy
15453);
15454
15455/* Source: slahrd.f */
15456#define slahrd FORTRAN_WRAPPER(slahrd)
15457extern void slahrd(
15458 const ptrdiff_t *n,
15459 const ptrdiff_t *k,
15460 const ptrdiff_t *nb,
15461 float *a,
15462 const ptrdiff_t *lda,
15463 float *tau,
15464 float *t,
15465 const ptrdiff_t *ldt,
15466 float *y,
15467 const ptrdiff_t *ldy
15468);
15469
15470/* Source: slaic1.f */
15471#define slaic1 FORTRAN_WRAPPER(slaic1)
15472extern void slaic1(
15473 const ptrdiff_t *job,
15474 const ptrdiff_t *j,
15475 const float *x,
15476 const float *sest,
15477 const float *w,
15478 const float *gamma_,
15479 float *sestpr,
15480 float *s,
15481 float *c
15482);
15483
15484/* Source: slaisnan.f */
15485#define slaisnan FORTRAN_WRAPPER(slaisnan)
15486extern ptrdiff_t slaisnan(
15487 const float *sin1,
15488 const float *sin2
15489);
15490
15491/* Source: slaln2.f */
15492#define slaln2 FORTRAN_WRAPPER(slaln2)
15493extern void slaln2(
15494 const ptrdiff_t *ltrans,
15495 const ptrdiff_t *na,
15496 const ptrdiff_t *nw,
15497 const float *smin,
15498 const float *ca,
15499 const float *a,
15500 const ptrdiff_t *lda,
15501 const float *d1,
15502 const float *d2,
15503 const float *b,
15504 const ptrdiff_t *ldb,
15505 const float *wr,
15506 const float *wi,
15507 float *x,
15508 const ptrdiff_t *ldx,
15509 float *scale,
15510 float *xnorm,
15511 ptrdiff_t *info
15512);
15513
15514/* Source: slals0.f */
15515#define slals0 FORTRAN_WRAPPER(slals0)
15516extern void slals0(
15517 const ptrdiff_t *icompq,
15518 const ptrdiff_t *nl,
15519 const ptrdiff_t *nr,
15520 const ptrdiff_t *sqre,
15521 const ptrdiff_t *nrhs,
15522 float *b,
15523 const ptrdiff_t *ldb,
15524 float *bx,
15525 const ptrdiff_t *ldbx,
15526 const ptrdiff_t *perm,
15527 const ptrdiff_t *givptr,
15528 const ptrdiff_t *givcol,
15529 const ptrdiff_t *ldgcol,
15530 const float *givnum,
15531 const ptrdiff_t *ldgnum,
15532 const float *poles,
15533 const float *difl,
15534 const float *difr,
15535 const float *z,
15536 const ptrdiff_t *k,
15537 const float *c,
15538 const float *s,
15539 float *work,
15540 ptrdiff_t *info
15541);
15542
15543/* Source: slalsa.f */
15544#define slalsa FORTRAN_WRAPPER(slalsa)
15545extern void slalsa(
15546 const ptrdiff_t *icompq,
15547 const ptrdiff_t *smlsiz,
15548 const ptrdiff_t *n,
15549 const ptrdiff_t *nrhs,
15550 float *b,
15551 const ptrdiff_t *ldb,
15552 float *bx,
15553 const ptrdiff_t *ldbx,
15554 const float *u,
15555 const ptrdiff_t *ldu,
15556 const float *vt,
15557 const ptrdiff_t *k,
15558 const float *difl,
15559 const float *difr,
15560 const float *z,
15561 const float *poles,
15562 const ptrdiff_t *givptr,
15563 const ptrdiff_t *givcol,
15564 const ptrdiff_t *ldgcol,
15565 const ptrdiff_t *perm,
15566 const float *givnum,
15567 const float *c,
15568 const float *s,
15569 float *work,
15570 ptrdiff_t *iwork,
15571 ptrdiff_t *info
15572);
15573
15574/* Source: slalsd.f */
15575#define slalsd FORTRAN_WRAPPER(slalsd)
15576extern void slalsd(
15577 const char *uplo,
15578 const ptrdiff_t *smlsiz,
15579 const ptrdiff_t *n,
15580 const ptrdiff_t *nrhs,
15581 float *d,
15582 float *e,
15583 float *b,
15584 const ptrdiff_t *ldb,
15585 const float *rcond,
15586 ptrdiff_t *rank,
15587 float *work,
15588 ptrdiff_t *iwork,
15589 ptrdiff_t *info
15590);
15591
15592/* Source: slamrg.f */
15593#define slamrg FORTRAN_WRAPPER(slamrg)
15594extern void slamrg(
15595 const ptrdiff_t *n1,
15596 const ptrdiff_t *n2,
15597 const float *a,
15598 const ptrdiff_t *strd1,
15599 const ptrdiff_t *strd2,
15600 ptrdiff_t *index
15601);
15602
15603/* Source: slaneg.f */
15604#define slaneg FORTRAN_WRAPPER(slaneg)
15605extern ptrdiff_t slaneg(
15606 const ptrdiff_t *n,
15607 const float *d,
15608 const float *lld,
15609 const float *sigma,
15610 const float *pivmin,
15611 const ptrdiff_t *r
15612);
15613
15614/* Source: slangb.f */
15615#define slangb FORTRAN_WRAPPER(slangb)
15616#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15617extern double slangb(
15618#else
15619extern float slangb(
15620#endif
15621 const char *norm,
15622 const ptrdiff_t *n,
15623 const ptrdiff_t *kl,
15624 const ptrdiff_t *ku,
15625 const float *ab,
15626 const ptrdiff_t *ldab,
15627 float *work
15628);
15629
15630/* Source: slange.f */
15631#define slange FORTRAN_WRAPPER(slange)
15632#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15633extern double slange(
15634#else
15635extern float slange(
15636#endif
15637 const char *norm,
15638 const ptrdiff_t *m,
15639 const ptrdiff_t *n,
15640 const float *a,
15641 const ptrdiff_t *lda,
15642 float *work
15643);
15644
15645/* Source: slangt.f */
15646#define slangt FORTRAN_WRAPPER(slangt)
15647#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15648extern double slangt(
15649#else
15650extern float slangt(
15651#endif
15652 const char *norm,
15653 const ptrdiff_t *n,
15654 const float *dl,
15655 const float *d,
15656 const float *du
15657);
15658
15659/* Source: slanhs.f */
15660#define slanhs FORTRAN_WRAPPER(slanhs)
15661#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15662extern double slanhs(
15663#else
15664extern float slanhs(
15665#endif
15666 const char *norm,
15667 const ptrdiff_t *n,
15668 const float *a,
15669 const ptrdiff_t *lda,
15670 float *work
15671);
15672
15673/* Source: slansb.f */
15674#define slansb FORTRAN_WRAPPER(slansb)
15675#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15676extern double slansb(
15677#else
15678extern float slansb(
15679#endif
15680 const char *norm,
15681 const char *uplo,
15682 const ptrdiff_t *n,
15683 const ptrdiff_t *k,
15684 const float *ab,
15685 const ptrdiff_t *ldab,
15686 float *work
15687);
15688
15689/* Source: slansf.f */
15690#define slansf FORTRAN_WRAPPER(slansf)
15691#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15692extern double slansf(
15693#else
15694extern float slansf(
15695#endif
15696 const char *norm,
15697 const char *transr,
15698 const char *uplo,
15699 const ptrdiff_t *n,
15700 const float *a,
15701 float *work
15702);
15703
15704/* Source: slansp.f */
15705#define slansp FORTRAN_WRAPPER(slansp)
15706#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15707extern double slansp(
15708#else
15709extern float slansp(
15710#endif
15711 const char *norm,
15712 const char *uplo,
15713 const ptrdiff_t *n,
15714 const float *ap,
15715 float *work
15716);
15717
15718/* Source: slanst.f */
15719#define slanst FORTRAN_WRAPPER(slanst)
15720#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15721extern double slanst(
15722#else
15723extern float slanst(
15724#endif
15725 const char *norm,
15726 const ptrdiff_t *n,
15727 const float *d,
15728 const float *e
15729);
15730
15731/* Source: slansy.f */
15732#define slansy FORTRAN_WRAPPER(slansy)
15733#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15734extern double slansy(
15735#else
15736extern float slansy(
15737#endif
15738 const char *norm,
15739 const char *uplo,
15740 const ptrdiff_t *n,
15741 const float *a,
15742 const ptrdiff_t *lda,
15743 float *work
15744);
15745
15746/* Source: slantb.f */
15747#define slantb FORTRAN_WRAPPER(slantb)
15748#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15749extern double slantb(
15750#else
15751extern float slantb(
15752#endif
15753 const char *norm,
15754 const char *uplo,
15755 const char *diag,
15756 const ptrdiff_t *n,
15757 const ptrdiff_t *k,
15758 const float *ab,
15759 const ptrdiff_t *ldab,
15760 float *work
15761);
15762
15763/* Source: slantp.f */
15764#define slantp FORTRAN_WRAPPER(slantp)
15765#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15766extern double slantp(
15767#else
15768extern float slantp(
15769#endif
15770 const char *norm,
15771 const char *uplo,
15772 const char *diag,
15773 const ptrdiff_t *n,
15774 const float *ap,
15775 float *work
15776);
15777
15778/* Source: slantr.f */
15779#define slantr FORTRAN_WRAPPER(slantr)
15780#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15781extern double slantr(
15782#else
15783extern float slantr(
15784#endif
15785 const char *norm,
15786 const char *uplo,
15787 const char *diag,
15788 const ptrdiff_t *m,
15789 const ptrdiff_t *n,
15790 const float *a,
15791 const ptrdiff_t *lda,
15792 float *work
15793);
15794
15795/* Source: slanv2.f */
15796#define slanv2 FORTRAN_WRAPPER(slanv2)
15797extern void slanv2(
15798 float *a,
15799 float *b,
15800 float *c,
15801 float *d,
15802 float *rt1r,
15803 float *rt1i,
15804 float *rt2r,
15805 float *rt2i,
15806 float *cs,
15807 float *sn
15808);
15809
15810/* Source: slapll.f */
15811#define slapll FORTRAN_WRAPPER(slapll)
15812extern void slapll(
15813 const ptrdiff_t *n,
15814 float *x,
15815 const ptrdiff_t *incx,
15816 float *y,
15817 const ptrdiff_t *incy,
15818 float *ssmin
15819);
15820
15821/* Source: slapmr.f */
15822#define slapmr FORTRAN_WRAPPER(slapmr)
15823extern void slapmr(
15824 const ptrdiff_t *forwrd,
15825 const ptrdiff_t *m,
15826 const ptrdiff_t *n,
15827 float *x,
15828 const ptrdiff_t *ldx,
15829 ptrdiff_t *k
15830);
15831
15832/* Source: slapmt.f */
15833#define slapmt FORTRAN_WRAPPER(slapmt)
15834extern void slapmt(
15835 const ptrdiff_t *forwrd,
15836 const ptrdiff_t *m,
15837 const ptrdiff_t *n,
15838 float *x,
15839 const ptrdiff_t *ldx,
15840 ptrdiff_t *k
15841);
15842
15843/* Source: slapy2.f */
15844#define slapy2 FORTRAN_WRAPPER(slapy2)
15845#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15846extern double slapy2(
15847#else
15848extern float slapy2(
15849#endif
15850 const float *x,
15851 const float *y
15852);
15853
15854/* Source: slapy3.f */
15855#define slapy3 FORTRAN_WRAPPER(slapy3)
15856#ifdef FORTRAN_FLOAT_FUNCTIONS_RETURN_DOUBLE
15857extern double slapy3(
15858#else
15859extern float slapy3(
15860#endif
15861 const float *x,
15862 const float *y,
15863 const float *z
15864);
15865
15866/* Source: slaqgb.f */
15867#define slaqgb FORTRAN_WRAPPER(slaqgb)
15868extern void slaqgb(
15869 const ptrdiff_t *m,
15870 const ptrdiff_t *n,
15871 const ptrdiff_t *kl,
15872 const ptrdiff_t *ku,
15873 float *ab,
15874 const ptrdiff_t *ldab,
15875 const float *r,
15876 const float *c,
15877 const float *rowcnd,
15878 const float *colcnd,
15879 const float *amax,
15880 char *equed
15881);
15882
15883/* Source: slaqge.f */
15884#define slaqge FORTRAN_WRAPPER(slaqge)
15885extern void slaqge(
15886 const ptrdiff_t *m,
15887 const ptrdiff_t *n,
15888 float *a,
15889 const ptrdiff_t *lda,
15890 const float *r,
15891 const float *c,
15892 const float *rowcnd,
15893 const float *colcnd,
15894 const float *amax,
15895 char *equed
15896);
15897
15898/* Source: slaqp2.f */
15899#define slaqp2 FORTRAN_WRAPPER(slaqp2)
15900extern void slaqp2(
15901 const ptrdiff_t *m,
15902 const ptrdiff_t *n,
15903 const ptrdiff_t *offset,
15904 float *a,
15905 const ptrdiff_t *lda,
15906 ptrdiff_t *jpvt,
15907 float *tau,
15908 float *vn1,
15909 float *vn2,
15910 float *work
15911);
15912
15913/* Source: slaqps.f */
15914#define slaqps FORTRAN_WRAPPER(slaqps)
15915extern void slaqps(
15916 const ptrdiff_t *m,
15917 const ptrdiff_t *n,
15918 const ptrdiff_t *offset,
15919 const ptrdiff_t *nb,
15920 ptrdiff_t *kb,
15921 float *a,
15922 const ptrdiff_t *lda,
15923 ptrdiff_t *jpvt,
15924 float *tau,
15925 float *vn1,
15926 float *vn2,
15927 float *auxv,
15928 float *f,
15929 const ptrdiff_t *ldf
15930);
15931
15932/* Source: slaqr0.f */
15933#define slaqr0 FORTRAN_WRAPPER(slaqr0)
15934extern void slaqr0(
15935 const ptrdiff_t *wantt,
15936 const ptrdiff_t *wantz,
15937 const ptrdiff_t *n,
15938 const ptrdiff_t *ilo,
15939 const ptrdiff_t *ihi,
15940 float *h,
15941 const ptrdiff_t *ldh,
15942 float *wr,
15943 float *wi,
15944 const ptrdiff_t *iloz,
15945 const ptrdiff_t *ihiz,
15946 float *z,
15947 const ptrdiff_t *ldz,
15948 float *work,
15949 const ptrdiff_t *lwork,
15950 ptrdiff_t *info
15951);
15952
15953/* Source: slaqr1.f */
15954#define slaqr1 FORTRAN_WRAPPER(slaqr1)
15955extern void slaqr1(
15956 const ptrdiff_t *n,
15957 const float *h,
15958 const ptrdiff_t *ldh,
15959 const float *sr1,
15960 float *si1,
15961 float *sr2,
15962 float *si2,
15963 float *v
15964);
15965
15966/* Source: slaqr2.f */
15967#define slaqr2 FORTRAN_WRAPPER(slaqr2)
15968extern void slaqr2(
15969 const ptrdiff_t *wantt,
15970 const ptrdiff_t *wantz,
15971 const ptrdiff_t *n,
15972 const ptrdiff_t *ktop,
15973 const ptrdiff_t *kbot,
15974 const ptrdiff_t *nw,
15975 float *h,
15976 const ptrdiff_t *ldh,
15977 const ptrdiff_t *iloz,
15978 const ptrdiff_t *ihiz,
15979 float *z,
15980 const ptrdiff_t *ldz,
15981 ptrdiff_t *ns,
15982 ptrdiff_t *nd,
15983 float *sr,
15984 float *si,
15985 float *v,
15986 const ptrdiff_t *ldv,
15987 const ptrdiff_t *nh,
15988 float *t,
15989 const ptrdiff_t *ldt,
15990 const ptrdiff_t *nv,
15991 float *wv,
15992 const ptrdiff_t *ldwv,
15993 float *work,
15994 const ptrdiff_t *lwork
15995);
15996
15997/* Source: slaqr3.f */
15998#define slaqr3 FORTRAN_WRAPPER(slaqr3)
15999extern void slaqr3(
16000 const ptrdiff_t *wantt,
16001 const ptrdiff_t *wantz,
16002 const ptrdiff_t *n,
16003 const ptrdiff_t *ktop,
16004 const ptrdiff_t *kbot,
16005 const ptrdiff_t *nw,
16006 float *h,
16007 const ptrdiff_t *ldh,
16008 const ptrdiff_t *iloz,
16009 const ptrdiff_t *ihiz,
16010 float *z,
16011 const ptrdiff_t *ldz,
16012 ptrdiff_t *ns,
16013 ptrdiff_t *nd,
16014 float *sr,
16015 float *si,
16016 float *v,
16017 const ptrdiff_t *ldv,
16018 const ptrdiff_t *nh,
16019 float *t,
16020 const ptrdiff_t *ldt,
16021 const ptrdiff_t *nv,
16022 float *wv,
16023 const ptrdiff_t *ldwv,
16024 float *work,
16025 const ptrdiff_t *lwork
16026);
16027
16028/* Source: slaqr4.f */
16029#define slaqr4 FORTRAN_WRAPPER(slaqr4)
16030extern void slaqr4(
16031 const ptrdiff_t *wantt,
16032 const ptrdiff_t *wantz,
16033 const ptrdiff_t *n,
16034 const ptrdiff_t *ilo,
16035 const ptrdiff_t *ihi,
16036 float *h,
16037 const ptrdiff_t *ldh,
16038 float *wr,
16039 float *wi,
16040 const ptrdiff_t *iloz,
16041 const ptrdiff_t *ihiz,
16042 float *z,
16043 const ptrdiff_t *ldz,
16044 float *work,
16045 const ptrdiff_t *lwork,
16046 ptrdiff_t *info
16047);
16048
16049/* Source: slaqr5.f */
16050#define slaqr5 FORTRAN_WRAPPER(slaqr5)
16051extern void slaqr5(
16052 const ptrdiff_t *wantt,
16053 const ptrdiff_t *wantz,
16054 const ptrdiff_t *kacc22,
16055 const ptrdiff_t *n,
16056 const ptrdiff_t *ktop,
16057 const ptrdiff_t *kbot,
16058 const ptrdiff_t *nshfts,
16059 float *sr,
16060 float *si,
16061 float *h,
16062 const ptrdiff_t *ldh,
16063 const ptrdiff_t *iloz,
16064 const ptrdiff_t *ihiz,
16065 float *z,
16066 const ptrdiff_t *ldz,
16067 float *v,
16068 const ptrdiff_t *ldv,
16069 float *u,
16070 const ptrdiff_t *ldu,
16071 const ptrdiff_t *nv,
16072 float *wv,
16073 const ptrdiff_t *ldwv,
16074 const ptrdiff_t *nh,
16075 float *wh,
16076 const ptrdiff_t *ldwh
16077);
16078
16079/* Source: slaqsb.f */
16080#define slaqsb FORTRAN_WRAPPER(slaqsb)
16081extern void slaqsb(
16082 const char *uplo,
16083 const ptrdiff_t *n,
16084 const ptrdiff_t *kd,
16085 float *ab,
16086 const ptrdiff_t *ldab,
16087 const float *s,
16088 const float *scond,
16089 const float *amax,
16090 char *equed
16091);
16092
16093/* Source: slaqsp.f */
16094#define slaqsp FORTRAN_WRAPPER(slaqsp)
16095extern void slaqsp(
16096 const char *uplo,
16097 const ptrdiff_t *n,
16098 float *ap,
16099 const float *s,
16100 const float *scond,
16101 const float *amax,
16102 char *equed
16103);
16104
16105/* Source: slaqsy.f */
16106#define slaqsy FORTRAN_WRAPPER(slaqsy)
16107extern void slaqsy(
16108 const char *uplo,
16109 const ptrdiff_t *n,
16110 float *a,
16111 const ptrdiff_t *lda,
16112 const float *s,
16113 const float *scond,
16114 const float *amax,
16115 char *equed
16116);
16117
16118/* Source: slaqtr.f */
16119#define slaqtr FORTRAN_WRAPPER(slaqtr)
16120extern void slaqtr(
16121 const ptrdiff_t *ltran,
16122 const ptrdiff_t *lreal,
16123 const ptrdiff_t *n,
16124 const float *t,
16125 const ptrdiff_t *ldt,
16126 const float *b,
16127 const float *w,
16128 float *scale,
16129 float *x,
16130 float *work,
16131 ptrdiff_t *info
16132);
16133
16134/* Source: slar1v.f */
16135#define slar1v FORTRAN_WRAPPER(slar1v)
16136extern void slar1v(
16137 const ptrdiff_t *n,
16138 const ptrdiff_t *b1,
16139 const ptrdiff_t *bn,
16140 const float *lambda,
16141 const float *d,
16142 const float *l,
16143 const float *ld,
16144 const float *lld,
16145 const float *pivmin,
16146 const float *gaptol,
16147 float *z,
16148 const ptrdiff_t *wantnc,
16149 ptrdiff_t *negcnt,
16150 float *ztz,
16151 float *mingma,
16152 ptrdiff_t *r,
16153 ptrdiff_t *isuppz,
16154 float *nrminv,
16155 float *resid,
16156 float *rqcorr,
16157 float *work
16158);
16159
16160/* Source: slar2v.f */
16161#define slar2v FORTRAN_WRAPPER(slar2v)
16162extern void slar2v(
16163 const ptrdiff_t *n,
16164 float *x,
16165 float *y,
16166 float *z,
16167 const ptrdiff_t *incx,
16168 const float *c,
16169 const float *s,
16170 const ptrdiff_t *incc
16171);
16172
16173/* Source: slarf.f */
16174#define slarf FORTRAN_WRAPPER(slarf)
16175extern void slarf(
16176 const char *side,
16177 const ptrdiff_t *m,
16178 const ptrdiff_t *n,
16179 const float *v,
16180 const ptrdiff_t *incv,
16181 const float *tau,
16182 float *c,
16183 const ptrdiff_t *ldc,
16184 float *work
16185);
16186
16187/* Source: slarfb.f */
16188#define slarfb FORTRAN_WRAPPER(slarfb)
16189extern void slarfb(
16190 const char *side,
16191 const char *trans,
16192 const char *direct,
16193 const char *storev,
16194 const ptrdiff_t *m,
16195 const ptrdiff_t *n,
16196 const ptrdiff_t *k,
16197 const float *v,
16198 const ptrdiff_t *ldv,
16199 const float *t,
16200 const ptrdiff_t *ldt,
16201 float *c,
16202 const ptrdiff_t *ldc,
16203 float *work,
16204 const ptrdiff_t *ldwork
16205);
16206
16207/* Source: slarfg.f */
16208#define slarfg FORTRAN_WRAPPER(slarfg)
16209extern void slarfg(
16210 const ptrdiff_t *n,
16211 float *alpha,
16212 float *x,
16213 const ptrdiff_t *incx,
16214 float *tau
16215);
16216
16217/* Source: slarfgp.f */
16218#define slarfgp FORTRAN_WRAPPER(slarfgp)
16219extern void slarfgp(
16220 const ptrdiff_t *n,
16221 float *alpha,
16222 float *x,
16223 const ptrdiff_t *incx,
16224 float *tau
16225);
16226
16227/* Source: slarft.f */
16228#define slarft FORTRAN_WRAPPER(slarft)
16229extern void slarft(
16230 const char *direct,
16231 const char *storev,
16232 const ptrdiff_t *n,
16233 const ptrdiff_t *k,
16234 float *v,
16235 const ptrdiff_t *ldv,
16236 const float *tau,
16237 float *t,
16238 const ptrdiff_t *ldt
16239);
16240
16241/* Source: slarfx.f */
16242#define slarfx FORTRAN_WRAPPER(slarfx)
16243extern void slarfx(
16244 const char *side,
16245 const ptrdiff_t *m,
16246 const ptrdiff_t *n,
16247 const float *v,
16248 const float *tau,
16249 float *c,
16250 const ptrdiff_t *ldc,
16251 float *work
16252);
16253
16254/* Source: slargv.f */
16255#define slargv FORTRAN_WRAPPER(slargv)
16256extern void slargv(
16257 const ptrdiff_t *n,
16258 float *x,
16259 const ptrdiff_t *incx,
16260 float *y,
16261 const ptrdiff_t *incy,
16262 float *c,
16263 const ptrdiff_t *incc
16264);
16265
16266/* Source: slarnv.f */
16267#define slarnv FORTRAN_WRAPPER(slarnv)
16268extern void slarnv(
16269 const ptrdiff_t *idist,
16270 ptrdiff_t *iseed,
16271 const ptrdiff_t *n,
16272 float *x
16273);
16274
16275/* Source: slarra.f */
16276#define slarra FORTRAN_WRAPPER(slarra)
16277extern void slarra(
16278 const ptrdiff_t *n,
16279 const float *d,
16280 float *e,
16281 float *e2,
16282 const float *spltol,
16283 const float *tnrm,
16284 ptrdiff_t *nsplit,
16285 ptrdiff_t *isplit,
16286 ptrdiff_t *info
16287);
16288
16289/* Source: slarrb.f */
16290#define slarrb FORTRAN_WRAPPER(slarrb)
16291extern void slarrb(
16292 const ptrdiff_t *n,
16293 const float *d,
16294 const float *lld,
16295 const ptrdiff_t *ifirst,
16296 const ptrdiff_t *ilast,
16297 const float *rtol1,
16298 const float *rtol2,
16299 const ptrdiff_t *offset,
16300 float *w,
16301 float *wgap,
16302 float *werr,
16303 float *work,
16304 ptrdiff_t *iwork,
16305 const float *pivmin,
16306 const float *spdiam,
16307 const ptrdiff_t *twist,
16308 ptrdiff_t *info
16309);
16310
16311/* Source: slarrc.f */
16312#define slarrc FORTRAN_WRAPPER(slarrc)
16313extern void slarrc(
16314 const char *jobt,
16315 const ptrdiff_t *n,
16316 const float *vl,
16317 const float *vu,
16318 const float *d,
16319 const float *e,
16320 const float *pivmin,
16321 ptrdiff_t *eigcnt,
16322 ptrdiff_t *lcnt,
16323 ptrdiff_t *rcnt,
16324 ptrdiff_t *info
16325);
16326
16327/* Source: slarrd.f */
16328#define slarrd FORTRAN_WRAPPER(slarrd)
16329extern void slarrd(
16330 const char *range,
16331 const char *order,
16332 const ptrdiff_t *n,
16333 const float *vl,
16334 const float *vu,
16335 const ptrdiff_t *il,
16336 const ptrdiff_t *iu,
16337 const float *gers,
16338 const float *reltol,
16339 const float *d,
16340 const float *e,
16341 const float *e2,
16342 const float *pivmin,
16343 const ptrdiff_t *nsplit,
16344 const ptrdiff_t *isplit,
16345 ptrdiff_t *m,
16346 float *w,
16347 float *werr,
16348 float *wl,
16349 float *wu,
16350 ptrdiff_t *iblock,
16351 ptrdiff_t *indexw,
16352 float *work,
16353 ptrdiff_t *iwork,
16354 ptrdiff_t *info
16355);
16356
16357/* Source: slarre.f */
16358#define slarre FORTRAN_WRAPPER(slarre)
16359extern void slarre(
16360 const char *range,
16361 const ptrdiff_t *n,
16362 float *vl,
16363 float *vu,
16364 const ptrdiff_t *il,
16365 const ptrdiff_t *iu,
16366 float *d,
16367 float *e,
16368 float *e2,
16369 const float *rtol1,
16370 const float *rtol2,
16371 const float *spltol,
16372 ptrdiff_t *nsplit,
16373 ptrdiff_t *isplit,
16374 ptrdiff_t *m,
16375 float *w,
16376 float *werr,
16377 float *wgap,
16378 ptrdiff_t *iblock,
16379 ptrdiff_t *indexw,
16380 float *gers,
16381 float *pivmin,
16382 float *work,
16383 ptrdiff_t *iwork,
16384 ptrdiff_t *info
16385);
16386
16387/* Source: slarrf.f */
16388#define slarrf FORTRAN_WRAPPER(slarrf)
16389extern void slarrf(
16390 const ptrdiff_t *n,
16391 const float *d,
16392 const float *l,
16393 const float *ld,
16394 const ptrdiff_t *clstrt,
16395 const ptrdiff_t *clend,
16396 const float *w,
16397 float *wgap,
16398 const float *werr,
16399 const float *spdiam,
16400 const float *clgapl,
16401 float *clgapr,
16402 const float *pivmin,
16403 float *sigma,
16404 float *dplus,
16405 float *lplus,
16406 float *work,
16407 ptrdiff_t *info
16408);
16409
16410/* Source: slarrj.f */
16411#define slarrj FORTRAN_WRAPPER(slarrj)
16412extern void slarrj(
16413 const ptrdiff_t *n,
16414 const float *d,
16415 const float *e2,
16416 const ptrdiff_t *ifirst,
16417 const ptrdiff_t *ilast,
16418 const float *rtol,
16419 const ptrdiff_t *offset,
16420 float *w,
16421 float *werr,
16422 float *work,
16423 ptrdiff_t *iwork,
16424 const float *pivmin,
16425 const float *spdiam,
16426 ptrdiff_t *info
16427);
16428
16429/* Source: slarrk.f */
16430#define slarrk FORTRAN_WRAPPER(slarrk)
16431extern void slarrk(
16432 const ptrdiff_t *n,
16433 const ptrdiff_t *iw,
16434 const float *gl,
16435 const float *gu,
16436 const float *d,
16437 const float *e2,
16438 const float *pivmin,
16439 const float *reltol,
16440 float *w,
16441 float *werr,
16442 ptrdiff_t *info
16443);
16444
16445/* Source: slarrr.f */
16446#define slarrr FORTRAN_WRAPPER(slarrr)
16447extern void slarrr(
16448 const ptrdiff_t *n,
16449 const float *d,
16450 float *e,
16451 ptrdiff_t *info
16452);
16453
16454/* Source: slarrv.f */
16455#define slarrv FORTRAN_WRAPPER(slarrv)
16456extern void slarrv(
16457 const ptrdiff_t *n,
16458 const float *vl,
16459 const float *vu,
16460 float *d,
16461 float *l,
16462 float *pivmin,
16463 const ptrdiff_t *isplit,
16464 const ptrdiff_t *m,
16465 const ptrdiff_t *dol,
16466 const ptrdiff_t *dou,
16467 const float *minrgp,
16468 const float *rtol1,
16469 const float *rtol2,
16470 float *w,
16471 float *werr,
16472 float *wgap,
16473 const ptrdiff_t *iblock,
16474 const ptrdiff_t *indexw,
16475 const float *gers,
16476 float *z,
16477 const ptrdiff_t *ldz,
16478 ptrdiff_t *isuppz,
16479 float *work,
16480 ptrdiff_t *iwork,
16481 ptrdiff_t *info
16482);
16483
16484/* Source: slartg.f */
16485#define slartg FORTRAN_WRAPPER(slartg)
16486extern void slartg(
16487 const float *f,
16488 const float *g,
16489 float *cs,
16490 float *sn,
16491 float *r
16492);
16493
16494/* Source: slartgp.f */
16495#define slartgp FORTRAN_WRAPPER(slartgp)
16496extern void slartgp(
16497 float *f,
16498 float *g,
16499 float *cs,
16500 float *sn,
16501 float *r
16502);
16503
16504/* Source: slartgs.f */
16505#define slartgs FORTRAN_WRAPPER(slartgs)
16506extern void slartgs(
16507 const float *x,
16508 const float *y,
16509 const float *sigma,
16510 float *cs,
16511 float *sn
16512);
16513
16514/* Source: slartv.f */
16515#define slartv FORTRAN_WRAPPER(slartv)
16516extern void slartv(
16517 const ptrdiff_t *n,
16518 float *x,
16519 const ptrdiff_t *incx,
16520 float *y,
16521 const ptrdiff_t *incy,
16522 const float *c,
16523 const float *s,
16524 const ptrdiff_t *incc
16525);
16526
16527/* Source: slaruv.f */
16528#define slaruv FORTRAN_WRAPPER(slaruv)
16529extern void slaruv(
16530 ptrdiff_t *iseed,
16531 const ptrdiff_t *n,
16532 float *x
16533);
16534
16535/* Source: slarz.f */
16536#define slarz FORTRAN_WRAPPER(slarz)
16537extern void slarz(
16538 const char *side,
16539 const ptrdiff_t *m,
16540 const ptrdiff_t *n,
16541 const ptrdiff_t *l,
16542 const float *v,
16543 const ptrdiff_t *incv,
16544 const float *tau,
16545 float *c,
16546 const ptrdiff_t *ldc,
16547 float *work
16548);
16549
16550/* Source: slarzb.f */
16551#define slarzb FORTRAN_WRAPPER(slarzb)
16552extern void slarzb(
16553 const char *side,
16554 const char *trans,
16555 const char *direct,
16556 const char *storev,
16557 const ptrdiff_t *m,
16558 const ptrdiff_t *n,
16559 const ptrdiff_t *k,
16560 const ptrdiff_t *l,
16561 const float *v,
16562 const ptrdiff_t *ldv,
16563 const float *t,
16564 const ptrdiff_t *ldt,
16565 float *c,
16566 const ptrdiff_t *ldc,
16567 float *work,
16568 const ptrdiff_t *ldwork
16569);
16570
16571/* Source: slarzt.f */
16572#define slarzt FORTRAN_WRAPPER(slarzt)
16573extern void slarzt(
16574 const char *direct,
16575 const char *storev,
16576 const ptrdiff_t *n,
16577 const ptrdiff_t *k,
16578 float *v,
16579 const ptrdiff_t *ldv,
16580 const float *tau,
16581 float *t,
16582 const ptrdiff_t *ldt
16583);
16584
16585/* Source: slas2.f */
16586#define slas2 FORTRAN_WRAPPER(slas2)
16587extern void slas2(
16588 const float *f,
16589 const float *g,
16590 const float *h,
16591 float *ssmin,
16592 float *ssmax
16593);
16594
16595/* Source: slascl.f */
16596#define slascl FORTRAN_WRAPPER(slascl)
16597extern void slascl(
16598 const char *type,
16599 const ptrdiff_t *kl,
16600 const ptrdiff_t *ku,
16601 const float *cfrom,
16602 const float *cto,
16603 const ptrdiff_t *m,
16604 const ptrdiff_t *n,
16605 float *a,
16606 const ptrdiff_t *lda,
16607 ptrdiff_t *info
16608);
16609
16610/* Source: slasd0.f */
16611#define slasd0 FORTRAN_WRAPPER(slasd0)
16612extern void slasd0(
16613 const ptrdiff_t *n,
16614 const ptrdiff_t *sqre,
16615 float *d,
16616 const float *e,
16617 float *u,
16618 const ptrdiff_t *ldu,
16619 float *vt,
16620 const ptrdiff_t *ldvt,
16621 const ptrdiff_t *smlsiz,
16622 ptrdiff_t *iwork,
16623 float *work,
16624 ptrdiff_t *info
16625);
16626
16627/* Source: slasd1.f */
16628#define slasd1 FORTRAN_WRAPPER(slasd1)
16629extern void slasd1(
16630 const ptrdiff_t *nl,
16631 const ptrdiff_t *nr,
16632 const ptrdiff_t *sqre,
16633 float *d,
16634 float *alpha,
16635 float *beta,
16636 float *u,
16637 const ptrdiff_t *ldu,
16638 float *vt,
16639 const ptrdiff_t *ldvt,
16640 ptrdiff_t *idxq,
16641 ptrdiff_t *iwork,
16642 float *work,
16643 ptrdiff_t *info
16644);
16645
16646/* Source: slasd2.f */
16647#define slasd2 FORTRAN_WRAPPER(slasd2)
16648extern void slasd2(
16649 const ptrdiff_t *nl,
16650 const ptrdiff_t *nr,
16651 const ptrdiff_t *sqre,
16652 ptrdiff_t *k,
16653 float *d,
16654 float *z,
16655 const float *alpha,
16656 const float *beta,
16657 float *u,
16658 const ptrdiff_t *ldu,
16659 float *vt,
16660 const ptrdiff_t *ldvt,
16661 float *dsigma,
16662 float *u2,
16663 const ptrdiff_t *ldu2,
16664 float *vt2,
16665 const ptrdiff_t *ldvt2,
16666 ptrdiff_t *idxp,
16667 ptrdiff_t *idx,
16668 ptrdiff_t *idxc,
16669 ptrdiff_t *idxq,
16670 ptrdiff_t *coltyp,
16671 ptrdiff_t *info
16672);
16673
16674/* Source: slasd3.f */
16675#define slasd3 FORTRAN_WRAPPER(slasd3)
16676extern void slasd3(
16677 const ptrdiff_t *nl,
16678 const ptrdiff_t *nr,
16679 const ptrdiff_t *sqre,
16680 const ptrdiff_t *k,
16681 float *d,
16682 float *q,
16683 const ptrdiff_t *ldq,
16684 float *dsigma,
16685 float *u,
16686 const ptrdiff_t *ldu,
16687 const float *u2,
16688 const ptrdiff_t *ldu2,
16689 float *vt,
16690 const ptrdiff_t *ldvt,
16691 float *vt2,
16692 const ptrdiff_t *ldvt2,
16693 const ptrdiff_t *idxc,
16694 const ptrdiff_t *ctot,
16695 float *z,
16696 ptrdiff_t *info
16697);
16698
16699/* Source: slasd4.f */
16700#define slasd4 FORTRAN_WRAPPER(slasd4)
16701extern void slasd4(
16702 const ptrdiff_t *n,
16703 const ptrdiff_t *i,
16704 const float *d,
16705 const float *z,
16706 float *delta,
16707 const float *rho,
16708 float *sigma,
16709 float *work,
16710 ptrdiff_t *info
16711);
16712
16713/* Source: slasd5.f */
16714#define slasd5 FORTRAN_WRAPPER(slasd5)
16715extern void slasd5(
16716 const ptrdiff_t *i,
16717 const float *d,
16718 const float *z,
16719 float *delta,
16720 const float *rho,
16721 float *dsigma,
16722 float *work
16723);
16724
16725/* Source: slasd6.f */
16726#define slasd6 FORTRAN_WRAPPER(slasd6)
16727extern void slasd6(
16728 const ptrdiff_t *icompq,
16729 const ptrdiff_t *nl,
16730 const ptrdiff_t *nr,
16731 const ptrdiff_t *sqre,
16732 float *d,
16733 float *vf,
16734 float *vl,
16735 float *alpha,
16736 float *beta,
16737 ptrdiff_t *idxq,
16738 ptrdiff_t *perm,
16739 ptrdiff_t *givptr,
16740 ptrdiff_t *givcol,
16741 const ptrdiff_t *ldgcol,
16742 float *givnum,
16743 const ptrdiff_t *ldgnum,
16744 float *poles,
16745 float *difl,
16746 float *difr,
16747 float *z,
16748 ptrdiff_t *k,
16749 float *c,
16750 float *s,
16751 float *work,
16752 ptrdiff_t *iwork,
16753 ptrdiff_t *info
16754);
16755
16756/* Source: slasd7.f */
16757#define slasd7 FORTRAN_WRAPPER(slasd7)
16758extern void slasd7(
16759 const ptrdiff_t *icompq,
16760 const ptrdiff_t *nl,
16761 const ptrdiff_t *nr,
16762 const ptrdiff_t *sqre,
16763 ptrdiff_t *k,
16764 float *d,
16765 float *z,
16766 float *zw,
16767 float *vf,
16768 float *vfw,
16769 float *vl,
16770 float *vlw,
16771 const float *alpha,
16772 const float *beta,
16773 float *dsigma,
16774 ptrdiff_t *idx,
16775 ptrdiff_t *idxp,
16776 const ptrdiff_t *idxq,
16777 ptrdiff_t *perm,
16778 ptrdiff_t *givptr,
16779 ptrdiff_t *givcol,
16780 const ptrdiff_t *ldgcol,
16781 float *givnum,
16782 const ptrdiff_t *ldgnum,
16783 float *c,
16784 float *s,
16785 ptrdiff_t *info
16786);
16787
16788/* Source: slasd8.f */
16789#define slasd8 FORTRAN_WRAPPER(slasd8)
16790extern void slasd8(
16791 const ptrdiff_t *icompq,
16792 const ptrdiff_t *k,
16793 float *d,
16794 float *z,
16795 float *vf,
16796 float *vl,
16797 float *difl,
16798 float *difr,
16799 const ptrdiff_t *lddifr,
16800 float *dsigma,
16801 float *work,
16802 ptrdiff_t *info
16803);
16804
16805/* Source: slasda.f */
16806#define slasda FORTRAN_WRAPPER(slasda)
16807extern void slasda(
16808 const ptrdiff_t *icompq,
16809 const ptrdiff_t *smlsiz,
16810 const ptrdiff_t *n,
16811 const ptrdiff_t *sqre,
16812 float *d,
16813 const float *e,
16814 float *u,
16815 const ptrdiff_t *ldu,
16816 float *vt,
16817 ptrdiff_t *k,
16818 float *difl,
16819 float *difr,
16820 float *z,
16821 float *poles,
16822 ptrdiff_t *givptr,
16823 ptrdiff_t *givcol,
16824 const ptrdiff_t *ldgcol,
16825 ptrdiff_t *perm,
16826 float *givnum,
16827 float *c,
16828 float *s,
16829 float *work,
16830 ptrdiff_t *iwork,
16831 ptrdiff_t *info
16832);
16833
16834/* Source: slasdq.f */
16835#define slasdq FORTRAN_WRAPPER(slasdq)
16836extern void slasdq(
16837 const char *uplo,
16838 const ptrdiff_t *sqre,
16839 const ptrdiff_t *n,
16840 const ptrdiff_t *ncvt,
16841 const ptrdiff_t *nru,
16842 const ptrdiff_t *ncc,
16843 float *d,
16844 float *e,
16845 float *vt,
16846 const ptrdiff_t *ldvt,
16847 float *u,
16848 const ptrdiff_t *ldu,
16849 float *c,
16850 const ptrdiff_t *ldc,
16851 float *work,
16852 ptrdiff_t *info
16853);
16854
16855/* Source: slasdt.f */
16856#define slasdt FORTRAN_WRAPPER(slasdt)
16857extern void slasdt(
16858 const ptrdiff_t *n,
16859 ptrdiff_t *lvl,
16860 ptrdiff_t *nd,
16861 ptrdiff_t *inode,
16862 ptrdiff_t *ndiml,
16863 ptrdiff_t *ndimr,
16864 const ptrdiff_t *msub
16865);
16866
16867/* Source: slaset.f */
16868#define slaset FORTRAN_WRAPPER(slaset)
16869extern void slaset(
16870 const char *uplo,
16871 const ptrdiff_t *m,
16872 const ptrdiff_t *n,
16873 const float *alpha,
16874 const float *beta,
16875 float *a,
16876 const ptrdiff_t *lda
16877);
16878
16879/* Source: slasq1.f */
16880#define slasq1 FORTRAN_WRAPPER(slasq1)
16881extern void slasq1(
16882 const ptrdiff_t *n,
16883 float *d,
16884 float *e,
16885 float *work,
16886 ptrdiff_t *info
16887);
16888
16889/* Source: slasq2.f */
16890#define slasq2 FORTRAN_WRAPPER(slasq2)
16891extern void slasq2(
16892 const ptrdiff_t *n,
16893 float *z,
16894 ptrdiff_t *info
16895);
16896
16897/* Source: slasq3.f */
16898#define slasq3 FORTRAN_WRAPPER(slasq3)
16899extern void slasq3(
16900 const ptrdiff_t *i0,
16901 const ptrdiff_t *n0,
16902 const float *z,
16903 ptrdiff_t *pp,
16904 float *dmin,
16905 float *sigma,
16906 float *desig,
16907 const float *qmax,
16908 ptrdiff_t *nfail,
16909 ptrdiff_t *iter,
16910 ptrdiff_t *ndiv,
16911 const ptrdiff_t *ieee,
16912 ptrdiff_t *ttype,
16913 float *dmin1,
16914 float *dmin2,
16915 float *dn,
16916 float *dn1,
16917 float *dn2,
16918 float *g,
16919 float *tau
16920);
16921
16922/* Source: slasq4.f */
16923#define slasq4 FORTRAN_WRAPPER(slasq4)
16924extern void slasq4(
16925 const ptrdiff_t *i0,
16926 const ptrdiff_t *n0,
16927 const float *z,
16928 const ptrdiff_t *pp,
16929 ptrdiff_t *n0in,
16930 const float *dmin,
16931 const float *dmin1,
16932 const float *dmin2,
16933 const float *dn,
16934 const float *dn1,
16935 const float *dn2,
16936 float *tau,
16937 ptrdiff_t *ttype,
16938 float *g
16939);
16940
16941/* Source: slasq5.f */
16942#define slasq5 FORTRAN_WRAPPER(slasq5)
16943extern void slasq5(
16944 const ptrdiff_t *i0,
16945 const ptrdiff_t *n0,
16946 const float *z,
16947 const ptrdiff_t *pp,
16948 const float *tau,
16949 const float *sigma,
16950 float *dmin,
16951 float *dmin1,
16952 float *dmin2,
16953 float *dn,
16954 float *dnm1,
16955 float *dnm2,
16956 const ptrdiff_t *ieee,
16957 const float *eps
16958);
16959
16960/* Source: slasq6.f */
16961#define slasq6 FORTRAN_WRAPPER(slasq6)
16962extern void slasq6(
16963 const ptrdiff_t *i0,
16964 const ptrdiff_t *n0,
16965 const float *z,
16966 const ptrdiff_t *pp,
16967 float *dmin,
16968 float *dmin1,
16969 float *dmin2,
16970 float *dn,
16971 float *dnm1,
16972 float *dnm2
16973);
16974
16975/* Source: slasr.f */
16976#define slasr FORTRAN_WRAPPER(slasr)
16977extern void slasr(
16978 const char *side,
16979 const char *pivot,
16980 const char *direct,
16981 const ptrdiff_t *m,
16982 const ptrdiff_t *n,
16983 const float *c,
16984 const float *s,
16985 float *a,
16986 const ptrdiff_t *lda
16987);
16988
16989/* Source: slasrt.f */
16990#define slasrt FORTRAN_WRAPPER(slasrt)
16991extern void slasrt(
16992 const char *id,
16993 const ptrdiff_t *n,
16994 float *d,
16995 ptrdiff_t *info
16996);
16997
16998/* Source: slassq.f */
16999#define slassq FORTRAN_WRAPPER(slassq)
17000extern void slassq(
17001 const ptrdiff_t *n,
17002 const float *x,
17003 const ptrdiff_t *incx,
17004 float *scale,
17005 float *sumsq
17006);
17007
17008/* Source: slasv2.f */
17009#define slasv2 FORTRAN_WRAPPER(slasv2)
17010extern void slasv2(
17011 const float *f,
17012 const float *g,
17013 const float *h,
17014 float *ssmin,
17015 float *ssmax,
17016 float *snr,
17017 float *csr,
17018 float *snl,
17019 float *csl
17020);
17021
17022/* Source: slaswp.f */
17023#define slaswp FORTRAN_WRAPPER(slaswp)
17024extern void slaswp(
17025 const ptrdiff_t *n,
17026 float *a,
17027 const ptrdiff_t *lda,
17028 const ptrdiff_t *k1,
17029 const ptrdiff_t *k2,
17030 const ptrdiff_t *ipiv,
17031 const ptrdiff_t *incx
17032);
17033
17034/* Source: slasy2.f */
17035#define slasy2 FORTRAN_WRAPPER(slasy2)
17036extern void slasy2(
17037 const ptrdiff_t *ltranl,
17038 const ptrdiff_t *ltranr,
17039 const ptrdiff_t *isgn,
17040 const ptrdiff_t *n1,
17041 const ptrdiff_t *n2,
17042 const float *tl,
17043 const ptrdiff_t *ldtl,
17044 const float *tr,
17045 const ptrdiff_t *ldtr,
17046 const float *b,
17047 const ptrdiff_t *ldb,
17048 float *scale,
17049 float *x,
17050 const ptrdiff_t *ldx,
17051 float *xnorm,
17052 ptrdiff_t *info
17053);
17054
17055/* Source: slasyf.f */
17056#define slasyf FORTRAN_WRAPPER(slasyf)
17057extern void slasyf(
17058 const char *uplo,
17059 const ptrdiff_t *n,
17060 const ptrdiff_t *nb,
17061 ptrdiff_t *kb,
17062 float *a,
17063 const ptrdiff_t *lda,
17064 ptrdiff_t *ipiv,
17065 float *w,
17066 const ptrdiff_t *ldw,
17067 ptrdiff_t *info
17068);
17069
17070/* Source: slasyf_rook.f */
17071#define slasyf_rook FORTRAN_WRAPPER(slasyf_rook)
17072extern void slasyf_rook(
17073 const char *uplo,
17074 const ptrdiff_t *n,
17075 const ptrdiff_t *nb,
17076 ptrdiff_t *kb,
17077 float *a,
17078 const ptrdiff_t *lda,
17079 ptrdiff_t *ipiv,
17080 float *w,
17081 const ptrdiff_t *ldw,
17082 ptrdiff_t *info
17083);
17084
17085/* Source: slatbs.f */
17086#define slatbs FORTRAN_WRAPPER(slatbs)
17087extern void slatbs(
17088 const char *uplo,
17089 const char *trans,
17090 const char *diag,
17091 const char *normin,
17092 const ptrdiff_t *n,
17093 const ptrdiff_t *kd,
17094 const float *ab,
17095 const ptrdiff_t *ldab,
17096 float *x,
17097 float *scale,
17098 float *cnorm,
17099 ptrdiff_t *info
17100);
17101
17102/* Source: slatdf.f */
17103#define slatdf FORTRAN_WRAPPER(slatdf)
17104extern void slatdf(
17105 const ptrdiff_t *ijob,
17106 const ptrdiff_t *n,
17107 const float *z,
17108 const ptrdiff_t *ldz,
17109 float *rhs,
17110 float *rdsum,
17111 float *rdscal,
17112 const ptrdiff_t *ipiv,
17113 const ptrdiff_t *jpiv
17114);
17115
17116/* Source: slatps.f */
17117#define slatps FORTRAN_WRAPPER(slatps)
17118extern void slatps(
17119 const char *uplo,
17120 const char *trans,
17121 const char *diag,
17122 const char *normin,
17123 const ptrdiff_t *n,
17124 const float *ap,
17125 float *x,
17126 float *scale,
17127 float *cnorm,
17128 ptrdiff_t *info
17129);
17130
17131/* Source: slatrd.f */
17132#define slatrd FORTRAN_WRAPPER(slatrd)
17133extern void slatrd(
17134 const char *uplo,
17135 const ptrdiff_t *n,
17136 const ptrdiff_t *nb,
17137 float *a,
17138 const ptrdiff_t *lda,
17139 float *e,
17140 float *tau,
17141 float *w,
17142 const ptrdiff_t *ldw
17143);
17144
17145/* Source: slatrs.f */
17146#define slatrs FORTRAN_WRAPPER(slatrs)
17147extern void slatrs(
17148 const char *uplo,
17149 const char *trans,
17150 const char *diag,
17151 const char *normin,
17152 const ptrdiff_t *n,
17153 const float *a,
17154 const ptrdiff_t *lda,
17155 float *x,
17156 float *scale,
17157 float *cnorm,
17158 ptrdiff_t *info
17159);
17160
17161/* Source: slatrz.f */
17162#define slatrz FORTRAN_WRAPPER(slatrz)
17163extern void slatrz(
17164 const ptrdiff_t *m,
17165 const ptrdiff_t *n,
17166 const ptrdiff_t *l,
17167 float *a,
17168 const ptrdiff_t *lda,
17169 float *tau,
17170 float *work
17171);
17172
17173/* Source: slatzm.f */
17174#define slatzm FORTRAN_WRAPPER(slatzm)
17175extern void slatzm(
17176 const char *side,
17177 const ptrdiff_t *m,
17178 const ptrdiff_t *n,
17179 const float *v,
17180 const ptrdiff_t *incv,
17181 const float *tau,
17182 float *c1,
17183 float *c2,
17184 const ptrdiff_t *ldc,
17185 float *work
17186);
17187
17188/* Source: slauu2.f */
17189#define slauu2 FORTRAN_WRAPPER(slauu2)
17190extern void slauu2(
17191 const char *uplo,
17192 const ptrdiff_t *n,
17193 float *a,
17194 const ptrdiff_t *lda,
17195 ptrdiff_t *info
17196);
17197
17198/* Source: slauum.f */
17199#define slauum FORTRAN_WRAPPER(slauum)
17200extern void slauum(
17201 const char *uplo,
17202 const ptrdiff_t *n,
17203 float *a,
17204 const ptrdiff_t *lda,
17205 ptrdiff_t *info
17206);
17207
17208/* Source: sopgtr.f */
17209#define sopgtr FORTRAN_WRAPPER(sopgtr)
17210extern void sopgtr(
17211 const char *uplo,
17212 const ptrdiff_t *n,
17213 const float *ap,
17214 const float *tau,
17215 float *q,
17216 const ptrdiff_t *ldq,
17217 float *work,
17218 ptrdiff_t *info
17219);
17220
17221/* Source: sopmtr.f */
17222#define sopmtr FORTRAN_WRAPPER(sopmtr)
17223extern void sopmtr(
17224 const char *side,
17225 const char *uplo,
17226 const char *trans,
17227 const ptrdiff_t *m,
17228 const ptrdiff_t *n,
17229 const float *ap,
17230 const float *tau,
17231 float *c,
17232 const ptrdiff_t *ldc,
17233 float *work,
17234 ptrdiff_t *info
17235);
17236
17237/* Source: sorbdb.f */
17238#define sorbdb FORTRAN_WRAPPER(sorbdb)
17239extern void sorbdb(
17240 const char *trans,
17241 const char *signs,
17242 const ptrdiff_t *m,
17243 const ptrdiff_t *p,
17244 const ptrdiff_t *q,
17245 float *x11,
17246 const ptrdiff_t *ldx11,
17247 float *x12,
17248 const ptrdiff_t *ldx12,
17249 float *x21,
17250 const ptrdiff_t *ldx21,
17251 float *x22,
17252 const ptrdiff_t *ldx22,
17253 float *theta,
17254 float *phi,
17255 float *taup1,
17256 float *taup2,
17257 float *tauq1,
17258 float *tauq2,
17259 float *work,
17260 const ptrdiff_t *lwork,
17261 ptrdiff_t *info
17262);
17263
17264/* Source: sorbdb1.f */
17265#define sorbdb1 FORTRAN_WRAPPER(sorbdb1)
17266extern void sorbdb1(
17267 const ptrdiff_t *m,
17268 const ptrdiff_t *p,
17269 const ptrdiff_t *q,
17270 float *x11,
17271 const ptrdiff_t *ldx11,
17272 float *x21,
17273 const ptrdiff_t *ldx21,
17274 float *theta,
17275 float *phi,
17276 float *taup1,
17277 float *taup2,
17278 float *tauq1,
17279 float *work,
17280 const ptrdiff_t *lwork,
17281 ptrdiff_t *info
17282);
17283
17284/* Source: sorbdb2.f */
17285#define sorbdb2 FORTRAN_WRAPPER(sorbdb2)
17286extern void sorbdb2(
17287 const ptrdiff_t *m,
17288 const ptrdiff_t *p,
17289 const ptrdiff_t *q,
17290 float *x11,
17291 const ptrdiff_t *ldx11,
17292 float *x21,
17293 const ptrdiff_t *ldx21,
17294 float *theta,
17295 float *phi,
17296 float *taup1,
17297 float *taup2,
17298 float *tauq1,
17299 float *work,
17300 const ptrdiff_t *lwork,
17301 ptrdiff_t *info
17302);
17303
17304/* Source: sorbdb3.f */
17305#define sorbdb3 FORTRAN_WRAPPER(sorbdb3)
17306extern void sorbdb3(
17307 const ptrdiff_t *m,
17308 const ptrdiff_t *p,
17309 const ptrdiff_t *q,
17310 float *x11,
17311 const ptrdiff_t *ldx11,
17312 float *x21,
17313 const ptrdiff_t *ldx21,
17314 float *theta,
17315 float *phi,
17316 float *taup1,
17317 float *taup2,
17318 float *tauq1,
17319 float *work,
17320 const ptrdiff_t *lwork,
17321 ptrdiff_t *info
17322);
17323
17324/* Source: sorbdb4.f */
17325#define sorbdb4 FORTRAN_WRAPPER(sorbdb4)
17326extern void sorbdb4(
17327 const ptrdiff_t *m,
17328 const ptrdiff_t *p,
17329 const ptrdiff_t *q,
17330 float *x11,
17331 const ptrdiff_t *ldx11,
17332 float *x21,
17333 const ptrdiff_t *ldx21,
17334 float *theta,
17335 float *phi,
17336 float *taup1,
17337 float *taup2,
17338 float *tauq1,
17339 float *phantom,
17340 float *work,
17341 const ptrdiff_t *lwork,
17342 ptrdiff_t *info
17343);
17344
17345/* Source: sorbdb5.f */
17346#define sorbdb5 FORTRAN_WRAPPER(sorbdb5)
17347extern void sorbdb5(
17348 const ptrdiff_t *m1,
17349 const ptrdiff_t *m2,
17350 const ptrdiff_t *n,
17351 float *x1,
17352 const ptrdiff_t *incx1,
17353 float *x2,
17354 const ptrdiff_t *incx2,
17355 float *q1,
17356 const ptrdiff_t *ldq1,
17357 float *q2,
17358 const ptrdiff_t *ldq2,
17359 float *work,
17360 const ptrdiff_t *lwork,
17361 ptrdiff_t *info
17362);
17363
17364/* Source: sorbdb6.f */
17365#define sorbdb6 FORTRAN_WRAPPER(sorbdb6)
17366extern void sorbdb6(
17367 const ptrdiff_t *m1,
17368 const ptrdiff_t *m2,
17369 const ptrdiff_t *n,
17370 float *x1,
17371 const ptrdiff_t *incx1,
17372 float *x2,
17373 const ptrdiff_t *incx2,
17374 float *q1,
17375 const ptrdiff_t *ldq1,
17376 float *q2,
17377 const ptrdiff_t *ldq2,
17378 float *work,
17379 const ptrdiff_t *lwork,
17380 ptrdiff_t *info
17381);
17382
17383/* Source: sorcsd.f */
17384#define sorcsd FORTRAN_WRAPPER(sorcsd)
17385extern void sorcsd(
17386 const char *jobu1,
17387 const char *jobu2,
17388 const char *jobv1t,
17389 const char *jobv2t,
17390 const char *trans,
17391 const char *signs,
17392 const ptrdiff_t *m,
17393 const ptrdiff_t *p,
17394 const ptrdiff_t *q,
17395 float *x11,
17396 const ptrdiff_t *ldx11,
17397 float *x12,
17398 const ptrdiff_t *ldx12,
17399 float *x21,
17400 const ptrdiff_t *ldx21,
17401 float *x22,
17402 const ptrdiff_t *ldx22,
17403 float *theta,
17404 float *u1,
17405 const ptrdiff_t *ldu1,
17406 float *u2,
17407 const ptrdiff_t *ldu2,
17408 float *v1t,
17409 const ptrdiff_t *ldv1t,
17410 float *v2t,
17411 const ptrdiff_t *ldv2t,
17412 float *work,
17413 const ptrdiff_t *lwork,
17414 ptrdiff_t *iwork,
17415 ptrdiff_t *info
17416);
17417
17418/* Source: sorcsd2by1.f */
17419#define sorcsd2by1 FORTRAN_WRAPPER(sorcsd2by1)
17420extern void sorcsd2by1(
17421 const char *jobu1,
17422 const char *jobu2,
17423 const char *jobv1t,
17424 const ptrdiff_t *m,
17425 const ptrdiff_t *p,
17426 const ptrdiff_t *q,
17427 float *x11,
17428 const ptrdiff_t *ldx11,
17429 float *x21,
17430 const ptrdiff_t *ldx21,
17431 float *theta,
17432 float *u1,
17433 const ptrdiff_t *ldu1,
17434 float *u2,
17435 const ptrdiff_t *ldu2,
17436 float *v1t,
17437 const ptrdiff_t *ldv1t,
17438 float *work,
17439 const ptrdiff_t *lwork,
17440 ptrdiff_t *iwork,
17441 ptrdiff_t *info
17442);
17443
17444/* Source: sorg2l.f */
17445#define sorg2l FORTRAN_WRAPPER(sorg2l)
17446extern void sorg2l(
17447 const ptrdiff_t *m,
17448 const ptrdiff_t *n,
17449 const ptrdiff_t *k,
17450 float *a,
17451 const ptrdiff_t *lda,
17452 const float *tau,
17453 float *work,
17454 ptrdiff_t *info
17455);
17456
17457/* Source: sorg2r.f */
17458#define sorg2r FORTRAN_WRAPPER(sorg2r)
17459extern void sorg2r(
17460 const ptrdiff_t *m,
17461 const ptrdiff_t *n,
17462 const ptrdiff_t *k,
17463 float *a,
17464 const ptrdiff_t *lda,
17465 const float *tau,
17466 float *work,
17467 ptrdiff_t *info
17468);
17469
17470/* Source: sorgbr.f */
17471#define sorgbr FORTRAN_WRAPPER(sorgbr)
17472extern void sorgbr(
17473 const char *vect,
17474 const ptrdiff_t *m,
17475 const ptrdiff_t *n,
17476 const ptrdiff_t *k,
17477 float *a,
17478 const ptrdiff_t *lda,
17479 const float *tau,
17480 float *work,
17481 const ptrdiff_t *lwork,
17482 ptrdiff_t *info
17483);
17484
17485/* Source: sorghr.f */
17486#define sorghr FORTRAN_WRAPPER(sorghr)
17487extern void sorghr(
17488 const ptrdiff_t *n,
17489 const ptrdiff_t *ilo,
17490 const ptrdiff_t *ihi,
17491 float *a,
17492 const ptrdiff_t *lda,
17493 const float *tau,
17494 float *work,
17495 const ptrdiff_t *lwork,
17496 ptrdiff_t *info
17497);
17498
17499/* Source: sorgl2.f */
17500#define sorgl2 FORTRAN_WRAPPER(sorgl2)
17501extern void sorgl2(
17502 const ptrdiff_t *m,
17503 const ptrdiff_t *n,
17504 const ptrdiff_t *k,
17505 float *a,
17506 const ptrdiff_t *lda,
17507 const float *tau,
17508 float *work,
17509 ptrdiff_t *info
17510);
17511
17512/* Source: sorglq.f */
17513#define sorglq FORTRAN_WRAPPER(sorglq)
17514extern void sorglq(
17515 const ptrdiff_t *m,
17516 const ptrdiff_t *n,
17517 const ptrdiff_t *k,
17518 float *a,
17519 const ptrdiff_t *lda,
17520 const float *tau,
17521 float *work,
17522 const ptrdiff_t *lwork,
17523 ptrdiff_t *info
17524);
17525
17526/* Source: sorgql.f */
17527#define sorgql FORTRAN_WRAPPER(sorgql)
17528extern void sorgql(
17529 const ptrdiff_t *m,
17530 const ptrdiff_t *n,
17531 const ptrdiff_t *k,
17532 float *a,
17533 const ptrdiff_t *lda,
17534 const float *tau,
17535 float *work,
17536 const ptrdiff_t *lwork,
17537 ptrdiff_t *info
17538);
17539
17540/* Source: sorgqr.f */
17541#define sorgqr FORTRAN_WRAPPER(sorgqr)
17542extern void sorgqr(
17543 const ptrdiff_t *m,
17544 const ptrdiff_t *n,
17545 const ptrdiff_t *k,
17546 float *a,
17547 const ptrdiff_t *lda,
17548 const float *tau,
17549 float *work,
17550 const ptrdiff_t *lwork,
17551 ptrdiff_t *info
17552);
17553
17554/* Source: sorgr2.f */
17555#define sorgr2 FORTRAN_WRAPPER(sorgr2)
17556extern void sorgr2(
17557 const ptrdiff_t *m,
17558 const ptrdiff_t *n,
17559 const ptrdiff_t *k,
17560 float *a,
17561 const ptrdiff_t *lda,
17562 const float *tau,
17563 float *work,
17564 ptrdiff_t *info
17565);
17566
17567/* Source: sorgrq.f */
17568#define sorgrq FORTRAN_WRAPPER(sorgrq)
17569extern void sorgrq(
17570 const ptrdiff_t *m,
17571 const ptrdiff_t *n,
17572 const ptrdiff_t *k,
17573 float *a,
17574 const ptrdiff_t *lda,
17575 const float *tau,
17576 float *work,
17577 const ptrdiff_t *lwork,
17578 ptrdiff_t *info
17579);
17580
17581/* Source: sorgtr.f */
17582#define sorgtr FORTRAN_WRAPPER(sorgtr)
17583extern void sorgtr(
17584 const char *uplo,
17585 const ptrdiff_t *n,
17586 float *a,
17587 const ptrdiff_t *lda,
17588 const float *tau,
17589 float *work,
17590 const ptrdiff_t *lwork,
17591 ptrdiff_t *info
17592);
17593
17594/* Source: sorm2l.f */
17595#define sorm2l FORTRAN_WRAPPER(sorm2l)
17596extern void sorm2l(
17597 const char *side,
17598 const char *trans,
17599 const ptrdiff_t *m,
17600 const ptrdiff_t *n,
17601 const ptrdiff_t *k,
17602 const float *a,
17603 const ptrdiff_t *lda,
17604 const float *tau,
17605 float *c,
17606 const ptrdiff_t *ldc,
17607 float *work,
17608 ptrdiff_t *info
17609);
17610
17611/* Source: sorm2r.f */
17612#define sorm2r FORTRAN_WRAPPER(sorm2r)
17613extern void sorm2r(
17614 const char *side,
17615 const char *trans,
17616 const ptrdiff_t *m,
17617 const ptrdiff_t *n,
17618 const ptrdiff_t *k,
17619 const float *a,
17620 const ptrdiff_t *lda,
17621 const float *tau,
17622 float *c,
17623 const ptrdiff_t *ldc,
17624 float *work,
17625 ptrdiff_t *info
17626);
17627
17628/* Source: sormbr.f */
17629#define sormbr FORTRAN_WRAPPER(sormbr)
17630extern void sormbr(
17631 const char *vect,
17632 const char *side,
17633 const char *trans,
17634 const ptrdiff_t *m,
17635 const ptrdiff_t *n,
17636 const ptrdiff_t *k,
17637 const float *a,
17638 const ptrdiff_t *lda,
17639 const float *tau,
17640 float *c,
17641 const ptrdiff_t *ldc,
17642 float *work,
17643 const ptrdiff_t *lwork,
17644 ptrdiff_t *info
17645);
17646
17647/* Source: sormhr.f */
17648#define sormhr FORTRAN_WRAPPER(sormhr)
17649extern void sormhr(
17650 const char *side,
17651 const char *trans,
17652 const ptrdiff_t *m,
17653 const ptrdiff_t *n,
17654 const ptrdiff_t *ilo,
17655 const ptrdiff_t *ihi,
17656 const float *a,
17657 const ptrdiff_t *lda,
17658 const float *tau,
17659 float *c,
17660 const ptrdiff_t *ldc,
17661 float *work,
17662 const ptrdiff_t *lwork,
17663 ptrdiff_t *info
17664);
17665
17666/* Source: sorml2.f */
17667#define sorml2 FORTRAN_WRAPPER(sorml2)
17668extern void sorml2(
17669 const char *side,
17670 const char *trans,
17671 const ptrdiff_t *m,
17672 const ptrdiff_t *n,
17673 const ptrdiff_t *k,
17674 const float *a,
17675 const ptrdiff_t *lda,
17676 const float *tau,
17677 float *c,
17678 const ptrdiff_t *ldc,
17679 float *work,
17680 ptrdiff_t *info
17681);
17682
17683/* Source: sormlq.f */
17684#define sormlq FORTRAN_WRAPPER(sormlq)
17685extern void sormlq(
17686 const char *side,
17687 const char *trans,
17688 const ptrdiff_t *m,
17689 const ptrdiff_t *n,
17690 const ptrdiff_t *k,
17691 const float *a,
17692 const ptrdiff_t *lda,
17693 const float *tau,
17694 float *c,
17695 const ptrdiff_t *ldc,
17696 float *work,
17697 const ptrdiff_t *lwork,
17698 ptrdiff_t *info
17699);
17700
17701/* Source: sormql.f */
17702#define sormql FORTRAN_WRAPPER(sormql)
17703extern void sormql(
17704 const char *side,
17705 const char *trans,
17706 const ptrdiff_t *m,
17707 const ptrdiff_t *n,
17708 const ptrdiff_t *k,
17709 const float *a,
17710 const ptrdiff_t *lda,
17711 const float *tau,
17712 float *c,
17713 const ptrdiff_t *ldc,
17714 float *work,
17715 const ptrdiff_t *lwork,
17716 ptrdiff_t *info
17717);
17718
17719/* Source: sormqr.f */
17720#define sormqr FORTRAN_WRAPPER(sormqr)
17721extern void sormqr(
17722 const char *side,
17723 const char *trans,
17724 const ptrdiff_t *m,
17725 const ptrdiff_t *n,
17726 const ptrdiff_t *k,
17727 const float *a,
17728 const ptrdiff_t *lda,
17729 const float *tau,
17730 float *c,
17731 const ptrdiff_t *ldc,
17732 float *work,
17733 const ptrdiff_t *lwork,
17734 ptrdiff_t *info
17735);
17736
17737/* Source: sormr2.f */
17738#define sormr2 FORTRAN_WRAPPER(sormr2)
17739extern void sormr2(
17740 const char *side,
17741 const char *trans,
17742 const ptrdiff_t *m,
17743 const ptrdiff_t *n,
17744 const ptrdiff_t *k,
17745 const float *a,
17746 const ptrdiff_t *lda,
17747 const float *tau,
17748 float *c,
17749 const ptrdiff_t *ldc,
17750 float *work,
17751 ptrdiff_t *info
17752);
17753
17754/* Source: sormr3.f */
17755#define sormr3 FORTRAN_WRAPPER(sormr3)
17756extern void sormr3(
17757 const char *side,
17758 const char *trans,
17759 const ptrdiff_t *m,
17760 const ptrdiff_t *n,
17761 const ptrdiff_t *k,
17762 const ptrdiff_t *l,
17763 const float *a,
17764 const ptrdiff_t *lda,
17765 const float *tau,
17766 float *c,
17767 const ptrdiff_t *ldc,
17768 float *work,
17769 ptrdiff_t *info
17770);
17771
17772/* Source: sormrq.f */
17773#define sormrq FORTRAN_WRAPPER(sormrq)
17774extern void sormrq(
17775 const char *side,
17776 const char *trans,
17777 const ptrdiff_t *m,
17778 const ptrdiff_t *n,
17779 const ptrdiff_t *k,
17780 const float *a,
17781 const ptrdiff_t *lda,
17782 const float *tau,
17783 float *c,
17784 const ptrdiff_t *ldc,
17785 float *work,
17786 const ptrdiff_t *lwork,
17787 ptrdiff_t *info
17788);
17789
17790/* Source: sormrz.f */
17791#define sormrz FORTRAN_WRAPPER(sormrz)
17792extern void sormrz(
17793 const char *side,
17794 const char *trans,
17795 const ptrdiff_t *m,
17796 const ptrdiff_t *n,
17797 const ptrdiff_t *k,
17798 const ptrdiff_t *l,
17799 const float *a,
17800 const ptrdiff_t *lda,
17801 const float *tau,
17802 float *c,
17803 const ptrdiff_t *ldc,
17804 float *work,
17805 const ptrdiff_t *lwork,
17806 ptrdiff_t *info
17807);
17808
17809/* Source: sormtr.f */
17810#define sormtr FORTRAN_WRAPPER(sormtr)
17811extern void sormtr(
17812 const char *side,
17813 const char *uplo,
17814 const char *trans,
17815 const ptrdiff_t *m,
17816 const ptrdiff_t *n,
17817 const float *a,
17818 const ptrdiff_t *lda,
17819 const float *tau,
17820 float *c,
17821 const ptrdiff_t *ldc,
17822 float *work,
17823 const ptrdiff_t *lwork,
17824 ptrdiff_t *info
17825);
17826
17827/* Source: spbcon.f */
17828#define spbcon FORTRAN_WRAPPER(spbcon)
17829extern void spbcon(
17830 const char *uplo,
17831 const ptrdiff_t *n,
17832 const ptrdiff_t *kd,
17833 const float *ab,
17834 const ptrdiff_t *ldab,
17835 const float *anorm,
17836 float *rcond,
17837 float *work,
17838 ptrdiff_t *iwork,
17839 ptrdiff_t *info
17840);
17841
17842/* Source: spbequ.f */
17843#define spbequ FORTRAN_WRAPPER(spbequ)
17844extern void spbequ(
17845 const char *uplo,
17846 const ptrdiff_t *n,
17847 const ptrdiff_t *kd,
17848 const float *ab,
17849 const ptrdiff_t *ldab,
17850 float *s,
17851 float *scond,
17852 float *amax,
17853 ptrdiff_t *info
17854);
17855
17856/* Source: spbrfs.f */
17857#define spbrfs FORTRAN_WRAPPER(spbrfs)
17858extern void spbrfs(
17859 const char *uplo,
17860 const ptrdiff_t *n,
17861 const ptrdiff_t *kd,
17862 const ptrdiff_t *nrhs,
17863 const float *ab,
17864 const ptrdiff_t *ldab,
17865 const float *afb,
17866 const ptrdiff_t *ldafb,
17867 const float *b,
17868 const ptrdiff_t *ldb,
17869 float *x,
17870 const ptrdiff_t *ldx,
17871 float *ferr,
17872 float *berr,
17873 float *work,
17874 ptrdiff_t *iwork,
17875 ptrdiff_t *info
17876);
17877
17878/* Source: spbstf.f */
17879#define spbstf FORTRAN_WRAPPER(spbstf)
17880extern void spbstf(
17881 const char *uplo,
17882 const ptrdiff_t *n,
17883 const ptrdiff_t *kd,
17884 float *ab,
17885 const ptrdiff_t *ldab,
17886 ptrdiff_t *info
17887);
17888
17889/* Source: spbsv.f */
17890#define spbsv FORTRAN_WRAPPER(spbsv)
17891extern void spbsv(
17892 const char *uplo,
17893 const ptrdiff_t *n,
17894 const ptrdiff_t *kd,
17895 const ptrdiff_t *nrhs,
17896 float *ab,
17897 const ptrdiff_t *ldab,
17898 float *b,
17899 const ptrdiff_t *ldb,
17900 ptrdiff_t *info
17901);
17902
17903/* Source: spbsvx.f */
17904#define spbsvx FORTRAN_WRAPPER(spbsvx)
17905extern void spbsvx(
17906 const char *fact,
17907 const char *uplo,
17908 const ptrdiff_t *n,
17909 const ptrdiff_t *kd,
17910 const ptrdiff_t *nrhs,
17911 float *ab,
17912 const ptrdiff_t *ldab,
17913 float *afb,
17914 const ptrdiff_t *ldafb,
17915 char *equed,
17916 float *s,
17917 float *b,
17918 const ptrdiff_t *ldb,
17919 float *x,
17920 const ptrdiff_t *ldx,
17921 float *rcond,
17922 float *ferr,
17923 float *berr,
17924 float *work,
17925 ptrdiff_t *iwork,
17926 ptrdiff_t *info
17927);
17928
17929/* Source: spbtf2.f */
17930#define spbtf2 FORTRAN_WRAPPER(spbtf2)
17931extern void spbtf2(
17932 const char *uplo,
17933 const ptrdiff_t *n,
17934 const ptrdiff_t *kd,
17935 float *ab,
17936 const ptrdiff_t *ldab,
17937 ptrdiff_t *info
17938);
17939
17940/* Source: spbtrf.f */
17941#define spbtrf FORTRAN_WRAPPER(spbtrf)
17942extern void spbtrf(
17943 const char *uplo,
17944 const ptrdiff_t *n,
17945 const ptrdiff_t *kd,
17946 float *ab,
17947 const ptrdiff_t *ldab,
17948 ptrdiff_t *info
17949);
17950
17951/* Source: spbtrs.f */
17952#define spbtrs FORTRAN_WRAPPER(spbtrs)
17953extern void spbtrs(
17954 const char *uplo,
17955 const ptrdiff_t *n,
17956 const ptrdiff_t *kd,
17957 const ptrdiff_t *nrhs,
17958 const float *ab,
17959 const ptrdiff_t *ldab,
17960 float *b,
17961 const ptrdiff_t *ldb,
17962 ptrdiff_t *info
17963);
17964
17965/* Source: spftrf.f */
17966#define spftrf FORTRAN_WRAPPER(spftrf)
17967extern void spftrf(
17968 const char *transr,
17969 const char *uplo,
17970 const ptrdiff_t *n,
17971 float *a,
17972 ptrdiff_t *info
17973);
17974
17975/* Source: spftri.f */
17976#define spftri FORTRAN_WRAPPER(spftri)
17977extern void spftri(
17978 const char *transr,
17979 const char *uplo,
17980 const ptrdiff_t *n,
17981 float *a,
17982 ptrdiff_t *info
17983);
17984
17985/* Source: spftrs.f */
17986#define spftrs FORTRAN_WRAPPER(spftrs)
17987extern void spftrs(
17988 const char *transr,
17989 const char *uplo,
17990 const ptrdiff_t *n,
17991 const ptrdiff_t *nrhs,
17992 const float *a,
17993 float *b,
17994 const ptrdiff_t *ldb,
17995 ptrdiff_t *info
17996);
17997
17998/* Source: spocon.f */
17999#define spocon FORTRAN_WRAPPER(spocon)
18000extern void spocon(
18001 const char *uplo,
18002 const ptrdiff_t *n,
18003 const float *a,
18004 const ptrdiff_t *lda,
18005 const float *anorm,
18006 float *rcond,
18007 float *work,
18008 ptrdiff_t *iwork,
18009 ptrdiff_t *info
18010);
18011
18012/* Source: spoequ.f */
18013#define spoequ FORTRAN_WRAPPER(spoequ)
18014extern void spoequ(
18015 const ptrdiff_t *n,
18016 const float *a,
18017 const ptrdiff_t *lda,
18018 float *s,
18019 float *scond,
18020 float *amax,
18021 ptrdiff_t *info
18022);
18023
18024/* Source: spoequb.f */
18025#define spoequb FORTRAN_WRAPPER(spoequb)
18026extern void spoequb(
18027 const ptrdiff_t *n,
18028 const float *a,
18029 const ptrdiff_t *lda,
18030 float *s,
18031 float *scond,
18032 float *amax,
18033 ptrdiff_t *info
18034);
18035
18036/* Source: sporfs.f */
18037#define sporfs FORTRAN_WRAPPER(sporfs)
18038extern void sporfs(
18039 const char *uplo,
18040 const ptrdiff_t *n,
18041 const ptrdiff_t *nrhs,
18042 const float *a,
18043 const ptrdiff_t *lda,
18044 const float *af,
18045 const ptrdiff_t *ldaf,
18046 const float *b,
18047 const ptrdiff_t *ldb,
18048 float *x,
18049 const ptrdiff_t *ldx,
18050 float *ferr,
18051 float *berr,
18052 float *work,
18053 ptrdiff_t *iwork,
18054 ptrdiff_t *info
18055);
18056
18057/* Source: sposv.f */
18058#define sposv FORTRAN_WRAPPER(sposv)
18059extern void sposv(
18060 const char *uplo,
18061 const ptrdiff_t *n,
18062 const ptrdiff_t *nrhs,
18063 float *a,
18064 const ptrdiff_t *lda,
18065 float *b,
18066 const ptrdiff_t *ldb,
18067 ptrdiff_t *info
18068);
18069
18070/* Source: sposvx.f */
18071#define sposvx FORTRAN_WRAPPER(sposvx)
18072extern void sposvx(
18073 const char *fact,
18074 const char *uplo,
18075 const ptrdiff_t *n,
18076 const ptrdiff_t *nrhs,
18077 float *a,
18078 const ptrdiff_t *lda,
18079 float *af,
18080 const ptrdiff_t *ldaf,
18081 char *equed,
18082 float *s,
18083 float *b,
18084 const ptrdiff_t *ldb,
18085 float *x,
18086 const ptrdiff_t *ldx,
18087 float *rcond,
18088 float *ferr,
18089 float *berr,
18090 float *work,
18091 ptrdiff_t *iwork,
18092 ptrdiff_t *info
18093);
18094
18095/* Source: spotf2.f */
18096#define spotf2 FORTRAN_WRAPPER(spotf2)
18097extern void spotf2(
18098 const char *uplo,
18099 const ptrdiff_t *n,
18100 float *a,
18101 const ptrdiff_t *lda,
18102 ptrdiff_t *info
18103);
18104
18105/* Source: spotrf.f */
18106#define spotrf FORTRAN_WRAPPER(spotrf)
18107extern void spotrf(
18108 const char *uplo,
18109 const ptrdiff_t *n,
18110 float *a,
18111 const ptrdiff_t *lda,
18112 ptrdiff_t *info
18113);
18114
18115/* Source: spotri.f */
18116#define spotri FORTRAN_WRAPPER(spotri)
18117extern void spotri(
18118 const char *uplo,
18119 const ptrdiff_t *n,
18120 float *a,
18121 const ptrdiff_t *lda,
18122 ptrdiff_t *info
18123);
18124
18125/* Source: spotrs.f */
18126#define spotrs FORTRAN_WRAPPER(spotrs)
18127extern void spotrs(
18128 const char *uplo,
18129 const ptrdiff_t *n,
18130 const ptrdiff_t *nrhs,
18131 const float *a,
18132 const ptrdiff_t *lda,
18133 float *b,
18134 const ptrdiff_t *ldb,
18135 ptrdiff_t *info
18136);
18137
18138/* Source: sppcon.f */
18139#define sppcon FORTRAN_WRAPPER(sppcon)
18140extern void sppcon(
18141 const char *uplo,
18142 const ptrdiff_t *n,
18143 const float *ap,
18144 const float *anorm,
18145 float *rcond,
18146 float *work,
18147 ptrdiff_t *iwork,
18148 ptrdiff_t *info
18149);
18150
18151/* Source: sppequ.f */
18152#define sppequ FORTRAN_WRAPPER(sppequ)
18153extern void sppequ(
18154 const char *uplo,
18155 const ptrdiff_t *n,
18156 const float *ap,
18157 float *s,
18158 float *scond,
18159 float *amax,
18160 ptrdiff_t *info
18161);
18162
18163/* Source: spprfs.f */
18164#define spprfs FORTRAN_WRAPPER(spprfs)
18165extern void spprfs(
18166 const char *uplo,
18167 const ptrdiff_t *n,
18168 const ptrdiff_t *nrhs,
18169 const float *ap,
18170 const float *afp,
18171 const float *b,
18172 const ptrdiff_t *ldb,
18173 float *x,
18174 const ptrdiff_t *ldx,
18175 float *ferr,
18176 float *berr,
18177 float *work,
18178 ptrdiff_t *iwork,
18179 ptrdiff_t *info
18180);
18181
18182/* Source: sppsv.f */
18183#define sppsv FORTRAN_WRAPPER(sppsv)
18184extern void sppsv(
18185 const char *uplo,
18186 const ptrdiff_t *n,
18187 const ptrdiff_t *nrhs,
18188 float *ap,
18189 float *b,
18190 const ptrdiff_t *ldb,
18191 ptrdiff_t *info
18192);
18193
18194/* Source: sppsvx.f */
18195#define sppsvx FORTRAN_WRAPPER(sppsvx)
18196extern void sppsvx(
18197 const char *fact,
18198 const char *uplo,
18199 const ptrdiff_t *n,
18200 const ptrdiff_t *nrhs,
18201 float *ap,
18202 float *afp,
18203 char *equed,
18204 float *s,
18205 float *b,
18206 const ptrdiff_t *ldb,
18207 float *x,
18208 const ptrdiff_t *ldx,
18209 float *rcond,
18210 float *ferr,
18211 float *berr,
18212 float *work,
18213 ptrdiff_t *iwork,
18214 ptrdiff_t *info
18215);
18216
18217/* Source: spptrf.f */
18218#define spptrf FORTRAN_WRAPPER(spptrf)
18219extern void spptrf(
18220 const char *uplo,
18221 const ptrdiff_t *n,
18222 float *ap,
18223 ptrdiff_t *info
18224);
18225
18226/* Source: spptri.f */
18227#define spptri FORTRAN_WRAPPER(spptri)
18228extern void spptri(
18229 const char *uplo,
18230 const ptrdiff_t *n,
18231 float *ap,
18232 ptrdiff_t *info
18233);
18234
18235/* Source: spptrs.f */
18236#define spptrs FORTRAN_WRAPPER(spptrs)
18237extern void spptrs(
18238 const char *uplo,
18239 const ptrdiff_t *n,
18240 const ptrdiff_t *nrhs,
18241 const float *ap,
18242 float *b,
18243 const ptrdiff_t *ldb,
18244 ptrdiff_t *info
18245);
18246
18247/* Source: spstf2.f */
18248#define spstf2 FORTRAN_WRAPPER(spstf2)
18249extern void spstf2(
18250 const char *uplo,
18251 const ptrdiff_t *n,
18252 float *a,
18253 const ptrdiff_t *lda,
18254 ptrdiff_t *piv,
18255 ptrdiff_t *rank,
18256 const float *tol,
18257 float *work,
18258 ptrdiff_t *info
18259);
18260
18261/* Source: spstrf.f */
18262#define spstrf FORTRAN_WRAPPER(spstrf)
18263extern void spstrf(
18264 const char *uplo,
18265 const ptrdiff_t *n,
18266 float *a,
18267 const ptrdiff_t *lda,
18268 ptrdiff_t *piv,
18269 ptrdiff_t *rank,
18270 const float *tol,
18271 float *work,
18272 ptrdiff_t *info
18273);
18274
18275/* Source: sptcon.f */
18276#define sptcon FORTRAN_WRAPPER(sptcon)
18277extern void sptcon(
18278 const ptrdiff_t *n,
18279 const float *d,
18280 const float *e,
18281 const float *anorm,
18282 float *rcond,
18283 float *work,
18284 ptrdiff_t *info
18285);
18286
18287/* Source: spteqr.f */
18288#define spteqr FORTRAN_WRAPPER(spteqr)
18289extern void spteqr(
18290 const char *compz,
18291 const ptrdiff_t *n,
18292 float *d,
18293 float *e,
18294 float *z,
18295 const ptrdiff_t *ldz,
18296 float *work,
18297 ptrdiff_t *info
18298);
18299
18300/* Source: sptrfs.f */
18301#define sptrfs FORTRAN_WRAPPER(sptrfs)
18302extern void sptrfs(
18303 const ptrdiff_t *n,
18304 const ptrdiff_t *nrhs,
18305 const float *d,
18306 const float *e,
18307 const float *df,
18308 const float *ef,
18309 const float *b,
18310 const ptrdiff_t *ldb,
18311 float *x,
18312 const ptrdiff_t *ldx,
18313 float *ferr,
18314 float *berr,
18315 float *work,
18316 ptrdiff_t *info
18317);
18318
18319/* Source: sptsv.f */
18320#define sptsv FORTRAN_WRAPPER(sptsv)
18321extern void sptsv(
18322 const ptrdiff_t *n,
18323 const ptrdiff_t *nrhs,
18324 float *d,
18325 float *e,
18326 float *b,
18327 const ptrdiff_t *ldb,
18328 ptrdiff_t *info
18329);
18330
18331/* Source: sptsvx.f */
18332#define sptsvx FORTRAN_WRAPPER(sptsvx)
18333extern void sptsvx(
18334 const char *fact,
18335 const ptrdiff_t *n,
18336 const ptrdiff_t *nrhs,
18337 const float *d,
18338 const float *e,
18339 float *df,
18340 float *ef,
18341 const float *b,
18342 const ptrdiff_t *ldb,
18343 float *x,
18344 const ptrdiff_t *ldx,
18345 float *rcond,
18346 float *ferr,
18347 float *berr,
18348 float *work,
18349 ptrdiff_t *info
18350);
18351
18352/* Source: spttrf.f */
18353#define spttrf FORTRAN_WRAPPER(spttrf)
18354extern void spttrf(
18355 const ptrdiff_t *n,
18356 float *d,
18357 float *e,
18358 ptrdiff_t *info
18359);
18360
18361/* Source: spttrs.f */
18362#define spttrs FORTRAN_WRAPPER(spttrs)
18363extern void spttrs(
18364 const ptrdiff_t *n,
18365 const ptrdiff_t *nrhs,
18366 const float *d,
18367 const float *e,
18368 float *b,
18369 const ptrdiff_t *ldb,
18370 ptrdiff_t *info
18371);
18372
18373/* Source: sptts2.f */
18374#define sptts2 FORTRAN_WRAPPER(sptts2)
18375extern void sptts2(
18376 const ptrdiff_t *n,
18377 const ptrdiff_t *nrhs,
18378 const float *d,
18379 const float *e,
18380 float *b,
18381 const ptrdiff_t *ldb
18382);
18383
18384/* Source: srscl.f */
18385#define srscl FORTRAN_WRAPPER(srscl)
18386extern void srscl(
18387 const ptrdiff_t *n,
18388 const float *sa,
18389 float *sx,
18390 const ptrdiff_t *incx
18391);
18392
18393/* Source: ssbev.f */
18394#define ssbev FORTRAN_WRAPPER(ssbev)
18395extern void ssbev(
18396 const char *jobz,
18397 const char *uplo,
18398 const ptrdiff_t *n,
18399 const ptrdiff_t *kd,
18400 float *ab,
18401 const ptrdiff_t *ldab,
18402 float *w,
18403 float *z,
18404 const ptrdiff_t *ldz,
18405 float *work,
18406 ptrdiff_t *info
18407);
18408
18409/* Source: ssbevd.f */
18410#define ssbevd FORTRAN_WRAPPER(ssbevd)
18411extern void ssbevd(
18412 const char *jobz,
18413 const char *uplo,
18414 const ptrdiff_t *n,
18415 const ptrdiff_t *kd,
18416 float *ab,
18417 const ptrdiff_t *ldab,
18418 float *w,
18419 float *z,
18420 const ptrdiff_t *ldz,
18421 float *work,
18422 const ptrdiff_t *lwork,
18423 ptrdiff_t *iwork,
18424 const ptrdiff_t *liwork,
18425 ptrdiff_t *info
18426);
18427
18428/* Source: ssbevx.f */
18429#define ssbevx FORTRAN_WRAPPER(ssbevx)
18430extern void ssbevx(
18431 const char *jobz,
18432 const char *range,
18433 const char *uplo,
18434 const ptrdiff_t *n,
18435 const ptrdiff_t *kd,
18436 float *ab,
18437 const ptrdiff_t *ldab,
18438 float *q,
18439 const ptrdiff_t *ldq,
18440 const float *vl,
18441 const float *vu,
18442 const ptrdiff_t *il,
18443 const ptrdiff_t *iu,
18444 const float *abstol,
18445 ptrdiff_t *m,
18446 float *w,
18447 float *z,
18448 const ptrdiff_t *ldz,
18449 float *work,
18450 ptrdiff_t *iwork,
18451 ptrdiff_t *ifail,
18452 ptrdiff_t *info
18453);
18454
18455/* Source: ssbgst.f */
18456#define ssbgst FORTRAN_WRAPPER(ssbgst)
18457extern void ssbgst(
18458 const char *vect,
18459 const char *uplo,
18460 const ptrdiff_t *n,
18461 const ptrdiff_t *ka,
18462 const ptrdiff_t *kb,
18463 float *ab,
18464 const ptrdiff_t *ldab,
18465 const float *bb,
18466 const ptrdiff_t *ldbb,
18467 float *x,
18468 const ptrdiff_t *ldx,
18469 float *work,
18470 ptrdiff_t *info
18471);
18472
18473/* Source: ssbgv.f */
18474#define ssbgv FORTRAN_WRAPPER(ssbgv)
18475extern void ssbgv(
18476 const char *jobz,
18477 const char *uplo,
18478 const ptrdiff_t *n,
18479 const ptrdiff_t *ka,
18480 const ptrdiff_t *kb,
18481 float *ab,
18482 const ptrdiff_t *ldab,
18483 float *bb,
18484 const ptrdiff_t *ldbb,
18485 float *w,
18486 float *z,
18487 const ptrdiff_t *ldz,
18488 float *work,
18489 ptrdiff_t *info
18490);
18491
18492/* Source: ssbgvd.f */
18493#define ssbgvd FORTRAN_WRAPPER(ssbgvd)
18494extern void ssbgvd(
18495 const char *jobz,
18496 const char *uplo,
18497 const ptrdiff_t *n,
18498 const ptrdiff_t *ka,
18499 const ptrdiff_t *kb,
18500 float *ab,
18501 const ptrdiff_t *ldab,
18502 float *bb,
18503 const ptrdiff_t *ldbb,
18504 float *w,
18505 float *z,
18506 const ptrdiff_t *ldz,
18507 float *work,
18508 const ptrdiff_t *lwork,
18509 ptrdiff_t *iwork,
18510 const ptrdiff_t *liwork,
18511 ptrdiff_t *info
18512);
18513
18514/* Source: ssbgvx.f */
18515#define ssbgvx FORTRAN_WRAPPER(ssbgvx)
18516extern void ssbgvx(
18517 const char *jobz,
18518 const char *range,
18519 const char *uplo,
18520 const ptrdiff_t *n,
18521 const ptrdiff_t *ka,
18522 const ptrdiff_t *kb,
18523 float *ab,
18524 const ptrdiff_t *ldab,
18525 float *bb,
18526 const ptrdiff_t *ldbb,
18527 float *q,
18528 const ptrdiff_t *ldq,
18529 const float *vl,
18530 const float *vu,
18531 const ptrdiff_t *il,
18532 const ptrdiff_t *iu,
18533 const float *abstol,
18534 ptrdiff_t *m,
18535 float *w,
18536 float *z,
18537 const ptrdiff_t *ldz,
18538 float *work,
18539 ptrdiff_t *iwork,
18540 ptrdiff_t *ifail,
18541 ptrdiff_t *info
18542);
18543
18544/* Source: ssbtrd.f */
18545#define ssbtrd FORTRAN_WRAPPER(ssbtrd)
18546extern void ssbtrd(
18547 const char *vect,
18548 const char *uplo,
18549 const ptrdiff_t *n,
18550 const ptrdiff_t *kd,
18551 float *ab,
18552 const ptrdiff_t *ldab,
18553 float *d,
18554 float *e,
18555 float *q,
18556 const ptrdiff_t *ldq,
18557 float *work,
18558 ptrdiff_t *info
18559);
18560
18561/* Source: ssfrk.f */
18562#define ssfrk FORTRAN_WRAPPER(ssfrk)
18563extern void ssfrk(
18564 const char *transr,
18565 const char *uplo,
18566 const char *trans,
18567 const ptrdiff_t *n,
18568 const ptrdiff_t *k,
18569 const float *alpha,
18570 const float *a,
18571 const ptrdiff_t *lda,
18572 const float *beta,
18573 float *c
18574);
18575
18576/* Source: sspcon.f */
18577#define sspcon FORTRAN_WRAPPER(sspcon)
18578extern void sspcon(
18579 const char *uplo,
18580 const ptrdiff_t *n,
18581 const float *ap,
18582 const ptrdiff_t *ipiv,
18583 const float *anorm,
18584 float *rcond,
18585 float *work,
18586 ptrdiff_t *iwork,
18587 ptrdiff_t *info
18588);
18589
18590/* Source: sspev.f */
18591#define sspev FORTRAN_WRAPPER(sspev)
18592extern void sspev(
18593 const char *jobz,
18594 const char *uplo,
18595 const ptrdiff_t *n,
18596 float *ap,
18597 float *w,
18598 float *z,
18599 const ptrdiff_t *ldz,
18600 float *work,
18601 ptrdiff_t *info
18602);
18603
18604/* Source: sspevd.f */
18605#define sspevd FORTRAN_WRAPPER(sspevd)
18606extern void sspevd(
18607 const char *jobz,
18608 const char *uplo,
18609 const ptrdiff_t *n,
18610 float *ap,
18611 float *w,
18612 float *z,
18613 const ptrdiff_t *ldz,
18614 float *work,
18615 const ptrdiff_t *lwork,
18616 ptrdiff_t *iwork,
18617 const ptrdiff_t *liwork,
18618 ptrdiff_t *info
18619);
18620
18621/* Source: sspevx.f */
18622#define sspevx FORTRAN_WRAPPER(sspevx)
18623extern void sspevx(
18624 const char *jobz,
18625 const char *range,
18626 const char *uplo,
18627 const ptrdiff_t *n,
18628 float *ap,
18629 const float *vl,
18630 const float *vu,
18631 const ptrdiff_t *il,
18632 const ptrdiff_t *iu,
18633 const float *abstol,
18634 ptrdiff_t *m,
18635 float *w,
18636 float *z,
18637 const ptrdiff_t *ldz,
18638 float *work,
18639 ptrdiff_t *iwork,
18640 ptrdiff_t *ifail,
18641 ptrdiff_t *info
18642);
18643
18644/* Source: sspgst.f */
18645#define sspgst FORTRAN_WRAPPER(sspgst)
18646extern void sspgst(
18647 const ptrdiff_t *itype,
18648 const char *uplo,
18649 const ptrdiff_t *n,
18650 float *ap,
18651 const float *bp,
18652 ptrdiff_t *info
18653);
18654
18655/* Source: sspgv.f */
18656#define sspgv FORTRAN_WRAPPER(sspgv)
18657extern void sspgv(
18658 const ptrdiff_t *itype,
18659 const char *jobz,
18660 const char *uplo,
18661 const ptrdiff_t *n,
18662 float *ap,
18663 float *bp,
18664 float *w,
18665 float *z,
18666 const ptrdiff_t *ldz,
18667 float *work,
18668 ptrdiff_t *info
18669);
18670
18671/* Source: sspgvd.f */
18672#define sspgvd FORTRAN_WRAPPER(sspgvd)
18673extern void sspgvd(
18674 const ptrdiff_t *itype,
18675 const char *jobz,
18676 const char *uplo,
18677 const ptrdiff_t *n,
18678 float *ap,
18679 float *bp,
18680 float *w,
18681 float *z,
18682 const ptrdiff_t *ldz,
18683 float *work,
18684 const ptrdiff_t *lwork,
18685 ptrdiff_t *iwork,
18686 const ptrdiff_t *liwork,
18687 ptrdiff_t *info
18688);
18689
18690/* Source: sspgvx.f */
18691#define sspgvx FORTRAN_WRAPPER(sspgvx)
18692extern void sspgvx(
18693 const ptrdiff_t *itype,
18694 const char *jobz,
18695 const char *range,
18696 const char *uplo,
18697 const ptrdiff_t *n,
18698 float *ap,
18699 float *bp,
18700 const float *vl,
18701 const float *vu,
18702 const ptrdiff_t *il,
18703 const ptrdiff_t *iu,
18704 const float *abstol,
18705 ptrdiff_t *m,
18706 float *w,
18707 float *z,
18708 const ptrdiff_t *ldz,
18709 float *work,
18710 ptrdiff_t *iwork,
18711 ptrdiff_t *ifail,
18712 ptrdiff_t *info
18713);
18714
18715/* Source: ssprfs.f */
18716#define ssprfs FORTRAN_WRAPPER(ssprfs)
18717extern void ssprfs(
18718 const char *uplo,
18719 const ptrdiff_t *n,
18720 const ptrdiff_t *nrhs,
18721 const float *ap,
18722 const float *afp,
18723 const ptrdiff_t *ipiv,
18724 const float *b,
18725 const ptrdiff_t *ldb,
18726 float *x,
18727 const ptrdiff_t *ldx,
18728 float *ferr,
18729 float *berr,
18730 float *work,
18731 ptrdiff_t *iwork,
18732 ptrdiff_t *info
18733);
18734
18735/* Source: sspsv.f */
18736#define sspsv FORTRAN_WRAPPER(sspsv)
18737extern void sspsv(
18738 const char *uplo,
18739 const ptrdiff_t *n,
18740 const ptrdiff_t *nrhs,
18741 float *ap,
18742 ptrdiff_t *ipiv,
18743 float *b,
18744 const ptrdiff_t *ldb,
18745 ptrdiff_t *info
18746);
18747
18748/* Source: sspsvx.f */
18749#define sspsvx FORTRAN_WRAPPER(sspsvx)
18750extern void sspsvx(
18751 const char *fact,
18752 const char *uplo,
18753 const ptrdiff_t *n,
18754 const ptrdiff_t *nrhs,
18755 const float *ap,
18756 float *afp,
18757 ptrdiff_t *ipiv,
18758 const float *b,
18759 const ptrdiff_t *ldb,
18760 float *x,
18761 const ptrdiff_t *ldx,
18762 float *rcond,
18763 float *ferr,
18764 float *berr,
18765 float *work,
18766 ptrdiff_t *iwork,
18767 ptrdiff_t *info
18768);
18769
18770/* Source: ssptrd.f */
18771#define ssptrd FORTRAN_WRAPPER(ssptrd)
18772extern void ssptrd(
18773 const char *uplo,
18774 const ptrdiff_t *n,
18775 float *ap,
18776 float *d,
18777 float *e,
18778 float *tau,
18779 ptrdiff_t *info
18780);
18781
18782/* Source: ssptrf.f */
18783#define ssptrf FORTRAN_WRAPPER(ssptrf)
18784extern void ssptrf(
18785 const char *uplo,
18786 const ptrdiff_t *n,
18787 float *ap,
18788 ptrdiff_t *ipiv,
18789 ptrdiff_t *info
18790);
18791
18792/* Source: ssptri.f */
18793#define ssptri FORTRAN_WRAPPER(ssptri)
18794extern void ssptri(
18795 const char *uplo,
18796 const ptrdiff_t *n,
18797 float *ap,
18798 const ptrdiff_t *ipiv,
18799 float *work,
18800 ptrdiff_t *info
18801);
18802
18803/* Source: ssptrs.f */
18804#define ssptrs FORTRAN_WRAPPER(ssptrs)
18805extern void ssptrs(
18806 const char *uplo,
18807 const ptrdiff_t *n,
18808 const ptrdiff_t *nrhs,
18809 const float *ap,
18810 const ptrdiff_t *ipiv,
18811 float *b,
18812 const ptrdiff_t *ldb,
18813 ptrdiff_t *info
18814);
18815
18816/* Source: sstebz.f */
18817#define sstebz FORTRAN_WRAPPER(sstebz)
18818extern void sstebz(
18819 const char *range,
18820 const char *order,
18821 const ptrdiff_t *n,
18822 const float *vl,
18823 const float *vu,
18824 const ptrdiff_t *il,
18825 const ptrdiff_t *iu,
18826 const float *abstol,
18827 const float *d,
18828 const float *e,
18829 ptrdiff_t *m,
18830 ptrdiff_t *nsplit,
18831 float *w,
18832 ptrdiff_t *iblock,
18833 ptrdiff_t *isplit,
18834 float *work,
18835 ptrdiff_t *iwork,
18836 ptrdiff_t *info
18837);
18838
18839/* Source: sstedc.f */
18840#define sstedc FORTRAN_WRAPPER(sstedc)
18841extern void sstedc(
18842 const char *compz,
18843 const ptrdiff_t *n,
18844 float *d,
18845 float *e,
18846 float *z,
18847 const ptrdiff_t *ldz,
18848 float *work,
18849 const ptrdiff_t *lwork,
18850 ptrdiff_t *iwork,
18851 const ptrdiff_t *liwork,
18852 ptrdiff_t *info
18853);
18854
18855/* Source: sstegr.f */
18856#define sstegr FORTRAN_WRAPPER(sstegr)
18857extern void sstegr(
18858 const char *jobz,
18859 const char *range,
18860 const ptrdiff_t *n,
18861 float *d,
18862 float *e,
18863 const float *vl,
18864 const float *vu,
18865 const ptrdiff_t *il,
18866 const ptrdiff_t *iu,
18867 const float *abstol,
18868 ptrdiff_t *m,
18869 float *w,
18870 float *z,
18871 const ptrdiff_t *ldz,
18872 ptrdiff_t *isuppz,
18873 float *work,
18874 const ptrdiff_t *lwork,
18875 ptrdiff_t *iwork,
18876 const ptrdiff_t *liwork,
18877 ptrdiff_t *info
18878);
18879
18880/* Source: sstein.f */
18881#define sstein FORTRAN_WRAPPER(sstein)
18882extern void sstein(
18883 const ptrdiff_t *n,
18884 const float *d,
18885 const float *e,
18886 const ptrdiff_t *m,
18887 const float *w,
18888 const ptrdiff_t *iblock,
18889 const ptrdiff_t *isplit,
18890 float *z,
18891 const ptrdiff_t *ldz,
18892 float *work,
18893 ptrdiff_t *iwork,
18894 ptrdiff_t *ifail,
18895 ptrdiff_t *info
18896);
18897
18898/* Source: sstemr.f */
18899#define sstemr FORTRAN_WRAPPER(sstemr)
18900extern void sstemr(
18901 const char *jobz,
18902 const char *range,
18903 const ptrdiff_t *n,
18904 float *d,
18905 float *e,
18906 const float *vl,
18907 const float *vu,
18908 const ptrdiff_t *il,
18909 const ptrdiff_t *iu,
18910 ptrdiff_t *m,
18911 float *w,
18912 float *z,
18913 const ptrdiff_t *ldz,
18914 const ptrdiff_t *nzc,
18915 ptrdiff_t *isuppz,
18916 ptrdiff_t *tryrac,
18917 float *work,
18918 const ptrdiff_t *lwork,
18919 ptrdiff_t *iwork,
18920 const ptrdiff_t *liwork,
18921 ptrdiff_t *info
18922);
18923
18924/* Source: ssteqr.f */
18925#define ssteqr FORTRAN_WRAPPER(ssteqr)
18926extern void ssteqr(
18927 const char *compz,
18928 const ptrdiff_t *n,
18929 float *d,
18930 float *e,
18931 float *z,
18932 const ptrdiff_t *ldz,
18933 float *work,
18934 ptrdiff_t *info
18935);
18936
18937/* Source: ssterf.f */
18938#define ssterf FORTRAN_WRAPPER(ssterf)
18939extern void ssterf(
18940 const ptrdiff_t *n,
18941 float *d,
18942 float *e,
18943 ptrdiff_t *info
18944);
18945
18946/* Source: sstev.f */
18947#define sstev FORTRAN_WRAPPER(sstev)
18948extern void sstev(
18949 const char *jobz,
18950 const ptrdiff_t *n,
18951 float *d,
18952 float *e,
18953 float *z,
18954 const ptrdiff_t *ldz,
18955 float *work,
18956 ptrdiff_t *info
18957);
18958
18959/* Source: sstevd.f */
18960#define sstevd FORTRAN_WRAPPER(sstevd)
18961extern void sstevd(
18962 const char *jobz,
18963 const ptrdiff_t *n,
18964 float *d,
18965 float *e,
18966 float *z,
18967 const ptrdiff_t *ldz,
18968 float *work,
18969 const ptrdiff_t *lwork,
18970 ptrdiff_t *iwork,
18971 const ptrdiff_t *liwork,
18972 ptrdiff_t *info
18973);
18974
18975/* Source: sstevr.f */
18976#define sstevr FORTRAN_WRAPPER(sstevr)
18977extern void sstevr(
18978 const char *jobz,
18979 const char *range,
18980 const ptrdiff_t *n,
18981 float *d,
18982 float *e,
18983 const float *vl,
18984 const float *vu,
18985 const ptrdiff_t *il,
18986 const ptrdiff_t *iu,
18987 const float *abstol,
18988 ptrdiff_t *m,
18989 float *w,
18990 float *z,
18991 const ptrdiff_t *ldz,
18992 ptrdiff_t *isuppz,
18993 float *work,
18994 const ptrdiff_t *lwork,
18995 ptrdiff_t *iwork,
18996 const ptrdiff_t *liwork,
18997 ptrdiff_t *info
18998);
18999
19000/* Source: sstevx.f */
19001#define sstevx FORTRAN_WRAPPER(sstevx)
19002extern void sstevx(
19003 const char *jobz,
19004 const char *range,
19005 const ptrdiff_t *n,
19006 float *d,
19007 float *e,
19008 const float *vl,
19009 const float *vu,
19010 const ptrdiff_t *il,
19011 const ptrdiff_t *iu,
19012 const float *abstol,
19013 ptrdiff_t *m,
19014 float *w,
19015 float *z,
19016 const ptrdiff_t *ldz,
19017 float *work,
19018 ptrdiff_t *iwork,
19019 ptrdiff_t *ifail,
19020 ptrdiff_t *info
19021);
19022
19023/* Source: ssycon.f */
19024#define ssycon FORTRAN_WRAPPER(ssycon)
19025extern void ssycon(
19026 const char *uplo,
19027 const ptrdiff_t *n,
19028 const float *a,
19029 const ptrdiff_t *lda,
19030 const ptrdiff_t *ipiv,
19031 const float *anorm,
19032 float *rcond,
19033 float *work,
19034 ptrdiff_t *iwork,
19035 ptrdiff_t *info
19036);
19037
19038/* Source: ssycon_rook.f */
19039#define ssycon_rook FORTRAN_WRAPPER(ssycon_rook)
19040extern void ssycon_rook(
19041 const char *uplo,
19042 const ptrdiff_t *n,
19043 const float *a,
19044 const ptrdiff_t *lda,
19045 const ptrdiff_t *ipiv,
19046 const float *anorm,
19047 float *rcond,
19048 float *work,
19049 ptrdiff_t *iwork,
19050 ptrdiff_t *info
19051);
19052
19053/* Source: ssyconv.f */
19054#define ssyconv FORTRAN_WRAPPER(ssyconv)
19055extern void ssyconv(
19056 const char *uplo,
19057 const char *way,
19058 const ptrdiff_t *n,
19059 float *a,
19060 const ptrdiff_t *lda,
19061 const ptrdiff_t *ipiv,
19062 float *work,
19063 ptrdiff_t *info
19064);
19065
19066/* Source: ssyequb.f */
19067#define ssyequb FORTRAN_WRAPPER(ssyequb)
19068extern void ssyequb(
19069 char *uplo,
19070 const ptrdiff_t *n,
19071 const float *a,
19072 const ptrdiff_t *lda,
19073 float *s,
19074 float *scond,
19075 float *amax,
19076 float *work,
19077 ptrdiff_t *info
19078);
19079
19080/* Source: ssyev.f */
19081#define ssyev FORTRAN_WRAPPER(ssyev)
19082extern void ssyev(
19083 const char *jobz,
19084 const char *uplo,
19085 const ptrdiff_t *n,
19086 float *a,
19087 const ptrdiff_t *lda,
19088 float *w,
19089 float *work,
19090 const ptrdiff_t *lwork,
19091 ptrdiff_t *info
19092);
19093
19094/* Source: ssyevd.f */
19095#define ssyevd FORTRAN_WRAPPER(ssyevd)
19096extern void ssyevd(
19097 const char *jobz,
19098 const char *uplo,
19099 const ptrdiff_t *n,
19100 float *a,
19101 const ptrdiff_t *lda,
19102 float *w,
19103 float *work,
19104 const ptrdiff_t *lwork,
19105 ptrdiff_t *iwork,
19106 const ptrdiff_t *liwork,
19107 ptrdiff_t *info
19108);
19109
19110/* Source: ssyevr.f */
19111#define ssyevr FORTRAN_WRAPPER(ssyevr)
19112extern void ssyevr(
19113 const char *jobz,
19114 const char *range,
19115 const char *uplo,
19116 const ptrdiff_t *n,
19117 float *a,
19118 const ptrdiff_t *lda,
19119 const float *vl,
19120 const float *vu,
19121 const ptrdiff_t *il,
19122 const ptrdiff_t *iu,
19123 const float *abstol,
19124 ptrdiff_t *m,
19125 float *w,
19126 float *z,
19127 const ptrdiff_t *ldz,
19128 ptrdiff_t *isuppz,
19129 float *work,
19130 const ptrdiff_t *lwork,
19131 ptrdiff_t *iwork,
19132 const ptrdiff_t *liwork,
19133 ptrdiff_t *info
19134);
19135
19136/* Source: ssyevx.f */
19137#define ssyevx FORTRAN_WRAPPER(ssyevx)
19138extern void ssyevx(
19139 const char *jobz,
19140 const char *range,
19141 const char *uplo,
19142 const ptrdiff_t *n,
19143 float *a,
19144 const ptrdiff_t *lda,
19145 const float *vl,
19146 const float *vu,
19147 const ptrdiff_t *il,
19148 const ptrdiff_t *iu,
19149 const float *abstol,
19150 ptrdiff_t *m,
19151 float *w,
19152 float *z,
19153 const ptrdiff_t *ldz,
19154 float *work,
19155 const ptrdiff_t *lwork,
19156 ptrdiff_t *iwork,
19157 ptrdiff_t *ifail,
19158 ptrdiff_t *info
19159);
19160
19161/* Source: ssygs2.f */
19162#define ssygs2 FORTRAN_WRAPPER(ssygs2)
19163extern void ssygs2(
19164 const ptrdiff_t *itype,
19165 const char *uplo,
19166 const ptrdiff_t *n,
19167 float *a,
19168 const ptrdiff_t *lda,
19169 const float *b,
19170 const ptrdiff_t *ldb,
19171 ptrdiff_t *info
19172);
19173
19174/* Source: ssygst.f */
19175#define ssygst FORTRAN_WRAPPER(ssygst)
19176extern void ssygst(
19177 const ptrdiff_t *itype,
19178 const char *uplo,
19179 const ptrdiff_t *n,
19180 float *a,
19181 const ptrdiff_t *lda,
19182 const float *b,
19183 const ptrdiff_t *ldb,
19184 ptrdiff_t *info
19185);
19186
19187/* Source: ssygv.f */
19188#define ssygv FORTRAN_WRAPPER(ssygv)
19189extern void ssygv(
19190 const ptrdiff_t *itype,
19191 const char *jobz,
19192 const char *uplo,
19193 const ptrdiff_t *n,
19194 float *a,
19195 const ptrdiff_t *lda,
19196 float *b,
19197 const ptrdiff_t *ldb,
19198 float *w,
19199 float *work,
19200 const ptrdiff_t *lwork,
19201 ptrdiff_t *info
19202);
19203
19204/* Source: ssygvd.f */
19205#define ssygvd FORTRAN_WRAPPER(ssygvd)
19206extern void ssygvd(
19207 const ptrdiff_t *itype,
19208 const char *jobz,
19209 const char *uplo,
19210 const ptrdiff_t *n,
19211 float *a,
19212 const ptrdiff_t *lda,
19213 float *b,
19214 const ptrdiff_t *ldb,
19215 float *w,
19216 float *work,
19217 const ptrdiff_t *lwork,
19218 ptrdiff_t *iwork,
19219 const ptrdiff_t *liwork,
19220 ptrdiff_t *info
19221);
19222
19223/* Source: ssygvx.f */
19224#define ssygvx FORTRAN_WRAPPER(ssygvx)
19225extern void ssygvx(
19226 const ptrdiff_t *itype,
19227 const char *jobz,
19228 const char *range,
19229 const char *uplo,
19230 const ptrdiff_t *n,
19231 float *a,
19232 const ptrdiff_t *lda,
19233 float *b,
19234 const ptrdiff_t *ldb,
19235 const float *vl,
19236 const float *vu,
19237 const ptrdiff_t *il,
19238 const ptrdiff_t *iu,
19239 const float *abstol,
19240 ptrdiff_t *m,
19241 float *w,
19242 float *z,
19243 const ptrdiff_t *ldz,
19244 float *work,
19245 const ptrdiff_t *lwork,
19246 ptrdiff_t *iwork,
19247 ptrdiff_t *ifail,
19248 ptrdiff_t *info
19249);
19250
19251/* Source: ssyrfs.f */
19252#define ssyrfs FORTRAN_WRAPPER(ssyrfs)
19253extern void ssyrfs(
19254 const char *uplo,
19255 const ptrdiff_t *n,
19256 const ptrdiff_t *nrhs,
19257 const float *a,
19258 const ptrdiff_t *lda,
19259 const float *af,
19260 const ptrdiff_t *ldaf,
19261 const ptrdiff_t *ipiv,
19262 const float *b,
19263 const ptrdiff_t *ldb,
19264 float *x,
19265 const ptrdiff_t *ldx,
19266 float *ferr,
19267 float *berr,
19268 float *work,
19269 ptrdiff_t *iwork,
19270 ptrdiff_t *info
19271);
19272
19273/* Source: ssysv.f */
19274#define ssysv FORTRAN_WRAPPER(ssysv)
19275extern void ssysv(
19276 const char *uplo,
19277 const ptrdiff_t *n,
19278 const ptrdiff_t *nrhs,
19279 float *a,
19280 const ptrdiff_t *lda,
19281 ptrdiff_t *ipiv,
19282 float *b,
19283 const ptrdiff_t *ldb,
19284 float *work,
19285 const ptrdiff_t *lwork,
19286 ptrdiff_t *info
19287);
19288
19289/* Source: ssysv_rook.f */
19290#define ssysv_rook FORTRAN_WRAPPER(ssysv_rook)
19291extern void ssysv_rook(
19292 const char *uplo,
19293 const ptrdiff_t *n,
19294 const ptrdiff_t *nrhs,
19295 float *a,
19296 const ptrdiff_t *lda,
19297 ptrdiff_t *ipiv,
19298 float *b,
19299 const ptrdiff_t *ldb,
19300 float *work,
19301 const ptrdiff_t *lwork,
19302 ptrdiff_t *info
19303);
19304
19305/* Source: ssysvx.f */
19306#define ssysvx FORTRAN_WRAPPER(ssysvx)
19307extern void ssysvx(
19308 const char *fact,
19309 const char *uplo,
19310 const ptrdiff_t *n,
19311 const ptrdiff_t *nrhs,
19312 const float *a,
19313 const ptrdiff_t *lda,
19314 float *af,
19315 const ptrdiff_t *ldaf,
19316 ptrdiff_t *ipiv,
19317 const float *b,
19318 const ptrdiff_t *ldb,
19319 float *x,
19320 const ptrdiff_t *ldx,
19321 float *rcond,
19322 float *ferr,
19323 float *berr,
19324 float *work,
19325 const ptrdiff_t *lwork,
19326 ptrdiff_t *iwork,
19327 ptrdiff_t *info
19328);
19329
19330/* Source: ssyswapr.f */
19331#define ssyswapr FORTRAN_WRAPPER(ssyswapr)
19332extern void ssyswapr(
19333 const char *uplo,
19334 const ptrdiff_t *n,
19335 float *a,
19336 const ptrdiff_t *lda,
19337 const ptrdiff_t *i1,
19338 const ptrdiff_t *i2
19339);
19340
19341/* Source: ssytd2.f */
19342#define ssytd2 FORTRAN_WRAPPER(ssytd2)
19343extern void ssytd2(
19344 const char *uplo,
19345 const ptrdiff_t *n,
19346 float *a,
19347 const ptrdiff_t *lda,
19348 float *d,
19349 float *e,
19350 float *tau,
19351 ptrdiff_t *info
19352);
19353
19354/* Source: ssytf2.f */
19355#define ssytf2 FORTRAN_WRAPPER(ssytf2)
19356extern void ssytf2(
19357 const char *uplo,
19358 const ptrdiff_t *n,
19359 float *a,
19360 const ptrdiff_t *lda,
19361 ptrdiff_t *ipiv,
19362 ptrdiff_t *info
19363);
19364
19365/* Source: ssytf2_rook.f */
19366#define ssytf2_rook FORTRAN_WRAPPER(ssytf2_rook)
19367extern void ssytf2_rook(
19368 const char *uplo,
19369 const ptrdiff_t *n,
19370 float *a,
19371 const ptrdiff_t *lda,
19372 ptrdiff_t *ipiv,
19373 ptrdiff_t *info
19374);
19375
19376/* Source: ssytrd.f */
19377#define ssytrd FORTRAN_WRAPPER(ssytrd)
19378extern void ssytrd(
19379 const char *uplo,
19380 const ptrdiff_t *n,
19381 float *a,
19382 const ptrdiff_t *lda,
19383 float *d,
19384 float *e,
19385 float *tau,
19386 float *work,
19387 const ptrdiff_t *lwork,
19388 ptrdiff_t *info
19389);
19390
19391/* Source: ssytrf.f */
19392#define ssytrf FORTRAN_WRAPPER(ssytrf)
19393extern void ssytrf(
19394 const char *uplo,
19395 const ptrdiff_t *n,
19396 float *a,
19397 const ptrdiff_t *lda,
19398 ptrdiff_t *ipiv,
19399 float *work,
19400 const ptrdiff_t *lwork,
19401 ptrdiff_t *info
19402);
19403
19404/* Source: ssytrf_rook.f */
19405#define ssytrf_rook FORTRAN_WRAPPER(ssytrf_rook)
19406extern void ssytrf_rook(
19407 const char *uplo,
19408 const ptrdiff_t *n,
19409 float *a,
19410 const ptrdiff_t *lda,
19411 ptrdiff_t *ipiv,
19412 float *work,
19413 const ptrdiff_t *lwork,
19414 ptrdiff_t *info
19415);
19416
19417/* Source: ssytri.f */
19418#define ssytri FORTRAN_WRAPPER(ssytri)
19419extern void ssytri(
19420 const char *uplo,
19421 const ptrdiff_t *n,
19422 float *a,
19423 const ptrdiff_t *lda,
19424 const ptrdiff_t *ipiv,
19425 float *work,
19426 ptrdiff_t *info
19427);
19428
19429/* Source: ssytri2.f */
19430#define ssytri2 FORTRAN_WRAPPER(ssytri2)
19431extern void ssytri2(
19432 const char *uplo,
19433 const ptrdiff_t *n,
19434 float *a,
19435 const ptrdiff_t *lda,
19436 const ptrdiff_t *ipiv,
19437 float *work,
19438 const ptrdiff_t *lwork,
19439 ptrdiff_t *info
19440);
19441
19442/* Source: ssytri2x.f */
19443#define ssytri2x FORTRAN_WRAPPER(ssytri2x)
19444extern void ssytri2x(
19445 const char *uplo,
19446 const ptrdiff_t *n,
19447 float *a,
19448 const ptrdiff_t *lda,
19449 const ptrdiff_t *ipiv,
19450 float *work,
19451 ptrdiff_t *nb,
19452 ptrdiff_t *info
19453);
19454
19455/* Source: ssytri_rook.f */
19456#define ssytri_rook FORTRAN_WRAPPER(ssytri_rook)
19457extern void ssytri_rook(
19458 const char *uplo,
19459 const ptrdiff_t *n,
19460 float *a,
19461 const ptrdiff_t *lda,
19462 const ptrdiff_t *ipiv,
19463 float *work,
19464 ptrdiff_t *info
19465);
19466
19467/* Source: ssytrs.f */
19468#define ssytrs FORTRAN_WRAPPER(ssytrs)
19469extern void ssytrs(
19470 const char *uplo,
19471 const ptrdiff_t *n,
19472 const ptrdiff_t *nrhs,
19473 const float *a,
19474 const ptrdiff_t *lda,
19475 const ptrdiff_t *ipiv,
19476 float *b,
19477 const ptrdiff_t *ldb,
19478 ptrdiff_t *info
19479);
19480
19481/* Source: ssytrs2.f */
19482#define ssytrs2 FORTRAN_WRAPPER(ssytrs2)
19483extern void ssytrs2(
19484 const char *uplo,
19485 const ptrdiff_t *n,
19486 const ptrdiff_t *nrhs,
19487 const float *a,
19488 const ptrdiff_t *lda,
19489 const ptrdiff_t *ipiv,
19490 float *b,
19491 const ptrdiff_t *ldb,
19492 float *work,
19493 ptrdiff_t *info
19494);
19495
19496/* Source: ssytrs_rook.f */
19497#define ssytrs_rook FORTRAN_WRAPPER(ssytrs_rook)
19498extern void ssytrs_rook(
19499 const char *uplo,
19500 const ptrdiff_t *n,
19501 const ptrdiff_t *nrhs,
19502 const float *a,
19503 const ptrdiff_t *lda,
19504 const ptrdiff_t *ipiv,
19505 float *b,
19506 const ptrdiff_t *ldb,
19507 ptrdiff_t *info
19508);
19509
19510/* Source: stbcon.f */
19511#define stbcon FORTRAN_WRAPPER(stbcon)
19512extern void stbcon(
19513 const char *norm,
19514 const char *uplo,
19515 const char *diag,
19516 const ptrdiff_t *n,
19517 const ptrdiff_t *kd,
19518 const float *ab,
19519 const ptrdiff_t *ldab,
19520 float *rcond,
19521 float *work,
19522 ptrdiff_t *iwork,
19523 ptrdiff_t *info
19524);
19525
19526/* Source: stbrfs.f */
19527#define stbrfs FORTRAN_WRAPPER(stbrfs)
19528extern void stbrfs(
19529 const char *uplo,
19530 const char *trans,
19531 const char *diag,
19532 const ptrdiff_t *n,
19533 const ptrdiff_t *kd,
19534 const ptrdiff_t *nrhs,
19535 const float *ab,
19536 const ptrdiff_t *ldab,
19537 const float *b,
19538 const ptrdiff_t *ldb,
19539 const float *x,
19540 const ptrdiff_t *ldx,
19541 float *ferr,
19542 float *berr,
19543 float *work,
19544 ptrdiff_t *iwork,
19545 ptrdiff_t *info
19546);
19547
19548/* Source: stbtrs.f */
19549#define stbtrs FORTRAN_WRAPPER(stbtrs)
19550extern void stbtrs(
19551 const char *uplo,
19552 const char *trans,
19553 const char *diag,
19554 const ptrdiff_t *n,
19555 const ptrdiff_t *kd,
19556 const ptrdiff_t *nrhs,
19557 const float *ab,
19558 const ptrdiff_t *ldab,
19559 float *b,
19560 const ptrdiff_t *ldb,
19561 ptrdiff_t *info
19562);
19563
19564/* Source: stfsm.f */
19565#define stfsm FORTRAN_WRAPPER(stfsm)
19566extern void stfsm(
19567 const char *transr,
19568 const char *side,
19569 const char *uplo,
19570 const char *trans,
19571 const char *diag,
19572 const ptrdiff_t *m,
19573 const ptrdiff_t *n,
19574 const float *alpha,
19575 const float *a,
19576 float *b,
19577 const ptrdiff_t *ldb
19578);
19579
19580/* Source: stftri.f */
19581#define stftri FORTRAN_WRAPPER(stftri)
19582extern void stftri(
19583 const char *transr,
19584 const char *uplo,
19585 const char *diag,
19586 const ptrdiff_t *n,
19587 float *a,
19588 ptrdiff_t *info
19589);
19590
19591/* Source: stfttp.f */
19592#define stfttp FORTRAN_WRAPPER(stfttp)
19593extern void stfttp(
19594 const char *transr,
19595 const char *uplo,
19596 const ptrdiff_t *n,
19597 const float *arf,
19598 float *ap,
19599 ptrdiff_t *info
19600);
19601
19602/* Source: stfttr.f */
19603#define stfttr FORTRAN_WRAPPER(stfttr)
19604extern void stfttr(
19605 const char *transr,
19606 const char *uplo,
19607 const ptrdiff_t *n,
19608 const float *arf,
19609 float *a,
19610 const ptrdiff_t *lda,
19611 ptrdiff_t *info
19612);
19613
19614/* Source: stgevc.f */
19615#define stgevc FORTRAN_WRAPPER(stgevc)
19616extern void stgevc(
19617 const char *side,
19618 const char *howmny,
19619 const ptrdiff_t *select,
19620 const ptrdiff_t *n,
19621 const float *s,
19622 const ptrdiff_t *lds,
19623 const float *p,
19624 const ptrdiff_t *ldp,
19625 float *vl,
19626 const ptrdiff_t *ldvl,
19627 float *vr,
19628 const ptrdiff_t *ldvr,
19629 const ptrdiff_t *mm,
19630 ptrdiff_t *m,
19631 float *work,
19632 ptrdiff_t *info
19633);
19634
19635/* Source: stgex2.f */
19636#define stgex2 FORTRAN_WRAPPER(stgex2)
19637extern void stgex2(
19638 const ptrdiff_t *wantq,
19639 const ptrdiff_t *wantz,
19640 const ptrdiff_t *n,
19641 float *a,
19642 const ptrdiff_t *lda,
19643 float *b,
19644 const ptrdiff_t *ldb,
19645 float *q,
19646 const ptrdiff_t *ldq,
19647 float *z,
19648 const ptrdiff_t *ldz,
19649 const ptrdiff_t *j1_,
19650 const ptrdiff_t *n1,
19651 const ptrdiff_t *n2,
19652 float *work,
19653 const ptrdiff_t *lwork,
19654 ptrdiff_t *info
19655);
19656
19657/* Source: stgexc.f */
19658#define stgexc FORTRAN_WRAPPER(stgexc)
19659extern void stgexc(
19660 const ptrdiff_t *wantq,
19661 const ptrdiff_t *wantz,
19662 const ptrdiff_t *n,
19663 float *a,
19664 const ptrdiff_t *lda,
19665 float *b,
19666 const ptrdiff_t *ldb,
19667 float *q,
19668 const ptrdiff_t *ldq,
19669 float *z,
19670 const ptrdiff_t *ldz,
19671 ptrdiff_t *ifst,
19672 ptrdiff_t *ilst,
19673 float *work,
19674 const ptrdiff_t *lwork,
19675 ptrdiff_t *info
19676);
19677
19678/* Source: stgsen.f */
19679#define stgsen FORTRAN_WRAPPER(stgsen)
19680extern void stgsen(
19681 const ptrdiff_t *ijob,
19682 const ptrdiff_t *wantq,
19683 const ptrdiff_t *wantz,
19684 const ptrdiff_t *select,
19685 const ptrdiff_t *n,
19686 float *a,
19687 const ptrdiff_t *lda,
19688 float *b,
19689 const ptrdiff_t *ldb,
19690 float *alphar,
19691 float *alphai,
19692 float *beta,
19693 float *q,
19694 const ptrdiff_t *ldq,
19695 float *z,
19696 const ptrdiff_t *ldz,
19697 ptrdiff_t *m,
19698 float *pl,
19699 float *pr,
19700 float *dif,
19701 float *work,
19702 const ptrdiff_t *lwork,
19703 ptrdiff_t *iwork,
19704 const ptrdiff_t *liwork,
19705 ptrdiff_t *info
19706);
19707
19708/* Source: stgsja.f */
19709#define stgsja FORTRAN_WRAPPER(stgsja)
19710extern void stgsja(
19711 const char *jobu,
19712 const char *jobv,
19713 const char *jobq,
19714 const ptrdiff_t *m,
19715 const ptrdiff_t *p,
19716 const ptrdiff_t *n,
19717 const ptrdiff_t *k,
19718 const ptrdiff_t *l,
19719 float *a,
19720 const ptrdiff_t *lda,
19721 float *b,
19722 const ptrdiff_t *ldb,
19723 const float *tola,
19724 const float *tolb,
19725 float *alpha,
19726 float *beta,
19727 float *u,
19728 const ptrdiff_t *ldu,
19729 float *v,
19730 const ptrdiff_t *ldv,
19731 float *q,
19732 const ptrdiff_t *ldq,
19733 float *work,
19734 ptrdiff_t *ncycle,
19735 ptrdiff_t *info
19736);
19737
19738/* Source: stgsna.f */
19739#define stgsna FORTRAN_WRAPPER(stgsna)
19740extern void stgsna(
19741 const char *job,
19742 const char *howmny,
19743 const ptrdiff_t *select,
19744 const ptrdiff_t *n,
19745 const float *a,
19746 const ptrdiff_t *lda,
19747 const float *b,
19748 const ptrdiff_t *ldb,
19749 const float *vl,
19750 const ptrdiff_t *ldvl,
19751 const float *vr,
19752 const ptrdiff_t *ldvr,
19753 float *s,
19754 float *dif,
19755 const ptrdiff_t *mm,
19756 ptrdiff_t *m,
19757 float *work,
19758 const ptrdiff_t *lwork,
19759 ptrdiff_t *iwork,
19760 ptrdiff_t *info
19761);
19762
19763/* Source: stgsy2.f */
19764#define stgsy2 FORTRAN_WRAPPER(stgsy2)
19765extern void stgsy2(
19766 const char *trans,
19767 const ptrdiff_t *ijob,
19768 const ptrdiff_t *m,
19769 const ptrdiff_t *n,
19770 const float *a,
19771 const ptrdiff_t *lda,
19772 const float *b,
19773 const ptrdiff_t *ldb,
19774 float *c,
19775 const ptrdiff_t *ldc,
19776 const float *d,
19777 const ptrdiff_t *ldd,
19778 const float *e,
19779 const ptrdiff_t *lde,
19780 float *f,
19781 const ptrdiff_t *ldf,
19782 float *scale,
19783 float *rdsum,
19784 float *rdscal,
19785 ptrdiff_t *iwork,
19786 ptrdiff_t *pq,
19787 ptrdiff_t *info
19788);
19789
19790/* Source: stgsyl.f */
19791#define stgsyl FORTRAN_WRAPPER(stgsyl)
19792extern void stgsyl(
19793 const char *trans,
19794 const ptrdiff_t *ijob,
19795 const ptrdiff_t *m,
19796 const ptrdiff_t *n,
19797 const float *a,
19798 const ptrdiff_t *lda,
19799 const float *b,
19800 const ptrdiff_t *ldb,
19801 float *c,
19802 const ptrdiff_t *ldc,
19803 const float *d,
19804 const ptrdiff_t *ldd,
19805 const float *e,
19806 const ptrdiff_t *lde,
19807 float *f,
19808 const ptrdiff_t *ldf,
19809 float *scale,
19810 float *dif,
19811 float *work,
19812 const ptrdiff_t *lwork,
19813 ptrdiff_t *iwork,
19814 ptrdiff_t *info
19815);
19816
19817/* Source: stpcon.f */
19818#define stpcon FORTRAN_WRAPPER(stpcon)
19819extern void stpcon(
19820 const char *norm,
19821 const char *uplo,
19822 const char *diag,
19823 const ptrdiff_t *n,
19824 const float *ap,
19825 float *rcond,
19826 float *work,
19827 ptrdiff_t *iwork,
19828 ptrdiff_t *info
19829);
19830
19831/* Source: stpmqrt.f */
19832#define stpmqrt FORTRAN_WRAPPER(stpmqrt)
19833extern void stpmqrt(
19834 const char *side,
19835 const char *trans,
19836 const ptrdiff_t *m,
19837 const ptrdiff_t *n,
19838 const ptrdiff_t *k,
19839 const ptrdiff_t *l,
19840 const ptrdiff_t *nb,
19841 const float *v,
19842 const ptrdiff_t *ldv,
19843 const float *t,
19844 const ptrdiff_t *ldt,
19845 float *a,
19846 const ptrdiff_t *lda,
19847 float *b,
19848 const ptrdiff_t *ldb,
19849 float *work,
19850 ptrdiff_t *info
19851);
19852
19853/* Source: stpqrt.f */
19854#define stpqrt FORTRAN_WRAPPER(stpqrt)
19855extern void stpqrt(
19856 const ptrdiff_t *m,
19857 const ptrdiff_t *n,
19858 const ptrdiff_t *l,
19859 const ptrdiff_t *nb,
19860 const float *a,
19861 const ptrdiff_t *lda,
19862 const float *b,
19863 const ptrdiff_t *ldb,
19864 const float *t,
19865 const ptrdiff_t *ldt,
19866 const float *work,
19867 ptrdiff_t *info
19868);
19869
19870/* Source: stpqrt2.f */
19871#define stpqrt2 FORTRAN_WRAPPER(stpqrt2)
19872extern void stpqrt2(
19873 const ptrdiff_t *m,
19874 const ptrdiff_t *n,
19875 const ptrdiff_t *l,
19876 float *a,
19877 const ptrdiff_t *lda,
19878 float *b,
19879 const ptrdiff_t *ldb,
19880 float *t,
19881 const ptrdiff_t *ldt,
19882 ptrdiff_t *info
19883);
19884
19885/* Source: stprfb.f */
19886#define stprfb FORTRAN_WRAPPER(stprfb)
19887extern void stprfb(
19888 const char *side,
19889 const char *trans,
19890 const char *direct,
19891 const char *storev,
19892 const ptrdiff_t *m,
19893 const ptrdiff_t *n,
19894 const ptrdiff_t *k,
19895 const ptrdiff_t *l,
19896 const float *v,
19897 const ptrdiff_t *ldv,
19898 const float *t,
19899 const ptrdiff_t *ldt,
19900 float *a,
19901 const ptrdiff_t *lda,
19902 float *b,
19903 const ptrdiff_t *ldb,
19904 float *work,
19905 const ptrdiff_t *ldwork
19906);
19907
19908/* Source: stprfs.f */
19909#define stprfs FORTRAN_WRAPPER(stprfs)
19910extern void stprfs(
19911 const char *uplo,
19912 const char *trans,
19913 const char *diag,
19914 const ptrdiff_t *n,
19915 const ptrdiff_t *nrhs,
19916 const float *ap,
19917 const float *b,
19918 const ptrdiff_t *ldb,
19919 const float *x,
19920 const ptrdiff_t *ldx,
19921 float *ferr,
19922 float *berr,
19923 float *work,
19924 ptrdiff_t *iwork,
19925 ptrdiff_t *info
19926);
19927
19928/* Source: stptri.f */
19929#define stptri FORTRAN_WRAPPER(stptri)
19930extern void stptri(
19931 const char *uplo,
19932 const char *diag,
19933 const ptrdiff_t *n,
19934 float *ap,
19935 ptrdiff_t *info
19936);
19937
19938/* Source: stptrs.f */
19939#define stptrs FORTRAN_WRAPPER(stptrs)
19940extern void stptrs(
19941 const char *uplo,
19942 const char *trans,
19943 const char *diag,
19944 const ptrdiff_t *n,
19945 const ptrdiff_t *nrhs,
19946 const float *ap,
19947 float *b,
19948 const ptrdiff_t *ldb,
19949 ptrdiff_t *info
19950);
19951
19952/* Source: stpttf.f */
19953#define stpttf FORTRAN_WRAPPER(stpttf)
19954extern void stpttf(
19955 const char *transr,
19956 const char *uplo,
19957 const ptrdiff_t *n,
19958 const float *ap,
19959 float *arf,
19960 ptrdiff_t *info
19961);
19962
19963/* Source: stpttr.f */
19964#define stpttr FORTRAN_WRAPPER(stpttr)
19965extern void stpttr(
19966 const char *uplo,
19967 const ptrdiff_t *n,
19968 const float *ap,
19969 float *a,
19970 const ptrdiff_t *lda,
19971 ptrdiff_t *info
19972);
19973
19974/* Source: strcon.f */
19975#define strcon FORTRAN_WRAPPER(strcon)
19976extern void strcon(
19977 const char *norm,
19978 const char *uplo,
19979 const char *diag,
19980 const ptrdiff_t *n,
19981 const float *a,
19982 const ptrdiff_t *lda,
19983 float *rcond,
19984 float *work,
19985 ptrdiff_t *iwork,
19986 ptrdiff_t *info
19987);
19988
19989/* Source: strevc.f */
19990#define strevc FORTRAN_WRAPPER(strevc)
19991extern void strevc(
19992 const char *side,
19993 const char *howmny,
19994 ptrdiff_t *select,
19995 const ptrdiff_t *n,
19996 const float *t,
19997 const ptrdiff_t *ldt,
19998 float *vl,
19999 const ptrdiff_t *ldvl,
20000 float *vr,
20001 const ptrdiff_t *ldvr,
20002 const ptrdiff_t *mm,
20003 ptrdiff_t *m,
20004 float *work,
20005 ptrdiff_t *info
20006);
20007
20008/* Source: strexc.f */
20009#define strexc FORTRAN_WRAPPER(strexc)
20010extern void strexc(
20011 const char *compq,
20012 const ptrdiff_t *n,
20013 float *t,
20014 const ptrdiff_t *ldt,
20015 float *q,
20016 const ptrdiff_t *ldq,
20017 ptrdiff_t *ifst,
20018 ptrdiff_t *ilst,
20019 float *work,
20020 ptrdiff_t *info
20021);
20022
20023/* Source: strrfs.f */
20024#define strrfs FORTRAN_WRAPPER(strrfs)
20025extern void strrfs(
20026 const char *uplo,
20027 const char *trans,
20028 const char *diag,
20029 const ptrdiff_t *n,
20030 const ptrdiff_t *nrhs,
20031 const float *a,
20032 const ptrdiff_t *lda,
20033 const float *b,
20034 const ptrdiff_t *ldb,
20035 const float *x,
20036 const ptrdiff_t *ldx,
20037 float *ferr,
20038 float *berr,
20039 float *work,
20040 ptrdiff_t *iwork,
20041 ptrdiff_t *info
20042);
20043
20044/* Source: strsen.f */
20045#define strsen FORTRAN_WRAPPER(strsen)
20046extern void strsen(
20047 const char *job,
20048 const char *compq,
20049 const ptrdiff_t *select,
20050 const ptrdiff_t *n,
20051 float *t,
20052 const ptrdiff_t *ldt,
20053 float *q,
20054 const ptrdiff_t *ldq,
20055 float *wr,
20056 float *wi,
20057 ptrdiff_t *m,
20058 float *s,
20059 float *sep,
20060 float *work,
20061 const ptrdiff_t *lwork,
20062 ptrdiff_t *iwork,
20063 const ptrdiff_t *liwork,
20064 ptrdiff_t *info
20065);
20066
20067/* Source: strsna.f */
20068#define strsna FORTRAN_WRAPPER(strsna)
20069extern void strsna(
20070 const char *job,
20071 const char *howmny,
20072 const ptrdiff_t *select,
20073 const ptrdiff_t *n,
20074 const float *t,
20075 const ptrdiff_t *ldt,
20076 const float *vl,
20077 const ptrdiff_t *ldvl,
20078 const float *vr,
20079 const ptrdiff_t *ldvr,
20080 float *s,
20081 float *sep,
20082 const ptrdiff_t *mm,
20083 ptrdiff_t *m,
20084 float *work,
20085 const ptrdiff_t *ldwork,
20086 ptrdiff_t *iwork,
20087 ptrdiff_t *info
20088);
20089
20090/* Source: strsyl.f */
20091#define strsyl FORTRAN_WRAPPER(strsyl)
20092extern void strsyl(
20093 const char *trana,
20094 const char *tranb,
20095 const ptrdiff_t *isgn,
20096 const ptrdiff_t *m,
20097 const ptrdiff_t *n,
20098 const float *a,
20099 const ptrdiff_t *lda,
20100 const float *b,
20101 const ptrdiff_t *ldb,
20102 float *c,
20103 const ptrdiff_t *ldc,
20104 float *scale,
20105 ptrdiff_t *info
20106);
20107
20108/* Source: strti2.f */
20109#define strti2 FORTRAN_WRAPPER(strti2)
20110extern void strti2(
20111 const char *uplo,
20112 const char *diag,
20113 const ptrdiff_t *n,
20114 float *a,
20115 const ptrdiff_t *lda,
20116 ptrdiff_t *info
20117);
20118
20119/* Source: strtri.f */
20120#define strtri FORTRAN_WRAPPER(strtri)
20121extern void strtri(
20122 const char *uplo,
20123 const char *diag,
20124 const ptrdiff_t *n,
20125 float *a,
20126 const ptrdiff_t *lda,
20127 ptrdiff_t *info
20128);
20129
20130/* Source: strtrs.f */
20131#define strtrs FORTRAN_WRAPPER(strtrs)
20132extern void strtrs(
20133 const char *uplo,
20134 const char *trans,
20135 const char *diag,
20136 const ptrdiff_t *n,
20137 const ptrdiff_t *nrhs,
20138 const float *a,
20139 const ptrdiff_t *lda,
20140 float *b,
20141 const ptrdiff_t *ldb,
20142 ptrdiff_t *info
20143);
20144
20145/* Source: strttf.f */
20146#define strttf FORTRAN_WRAPPER(strttf)
20147extern void strttf(
20148 const char *transr,
20149 const char *uplo,
20150 const ptrdiff_t *n,
20151 const float *a,
20152 const ptrdiff_t *lda,
20153 float *arf,
20154 ptrdiff_t *info
20155);
20156
20157/* Source: strttp.f */
20158#define strttp FORTRAN_WRAPPER(strttp)
20159extern void strttp(
20160 const char *uplo,
20161 const ptrdiff_t *n,
20162 const float *a,
20163 const ptrdiff_t *lda,
20164 float *ap,
20165 ptrdiff_t *info
20166);
20167
20168/* Source: stzrqf.f */
20169#define stzrqf FORTRAN_WRAPPER(stzrqf)
20170extern void stzrqf(
20171 const ptrdiff_t *m,
20172 const ptrdiff_t *n,
20173 float *a,
20174 const ptrdiff_t *lda,
20175 float *tau,
20176 ptrdiff_t *info
20177);
20178
20179/* Source: stzrzf.f */
20180#define stzrzf FORTRAN_WRAPPER(stzrzf)
20181extern void stzrzf(
20182 const ptrdiff_t *m,
20183 const ptrdiff_t *n,
20184 float *a,
20185 const ptrdiff_t *lda,
20186 float *tau,
20187 float *work,
20188 const ptrdiff_t *lwork,
20189 ptrdiff_t *info
20190);
20191
20192/* Source: xerbla_array.f */
20193#define xerbla_array FORTRAN_WRAPPER(xerbla_array)
20194extern void xerbla_array(
20195 const char *srname_array,
20196 const ptrdiff_t *srname_len,
20197 const ptrdiff_t *info
20198);
20199
20200/* Source: zbbcsd.f */
20201#define zbbcsd FORTRAN_WRAPPER(zbbcsd)
20202extern void zbbcsd(
20203 const char *jobu1,
20204 const char *jobu2,
20205 const char *jobv1t,
20206 const char *jobv2t,
20207 const char *trans,
20208 const ptrdiff_t *m,
20209 const ptrdiff_t *p,
20210 const ptrdiff_t *q,
20211 double *theta,
20212 double *phi,
20213 double *u1,
20214 const ptrdiff_t *ldu1,
20215 double *u2,
20216 const ptrdiff_t *ldu2,
20217 double *v1t,
20218 const ptrdiff_t *ldv1t,
20219 double *v2t,
20220 const ptrdiff_t *ldv2t,
20221 double *b11d,
20222 double *b11e,
20223 double *b12d,
20224 double *b12e,
20225 double *b21d,
20226 double *b21e,
20227 double *b22d,
20228 double *b22e,
20229 double *rwork,
20230 const ptrdiff_t *lrwork,
20231 ptrdiff_t *info
20232);
20233
20234/* Source: zbdsqr.f */
20235#define zbdsqr FORTRAN_WRAPPER(zbdsqr)
20236extern void zbdsqr(
20237 const char *uplo,
20238 const ptrdiff_t *n,
20239 const ptrdiff_t *ncvt,
20240 const ptrdiff_t *nru,
20241 const ptrdiff_t *ncc,
20242 double *d,
20243 double *e,
20244 double *vt,
20245 const ptrdiff_t *ldvt,
20246 double *u,
20247 const ptrdiff_t *ldu,
20248 double *c,
20249 const ptrdiff_t *ldc,
20250 double *rwork,
20251 ptrdiff_t *info
20252);
20253
20254/* Source: zcgesv.f */
20255#define zcgesv FORTRAN_WRAPPER(zcgesv)
20256extern void zcgesv(
20257 const ptrdiff_t *n,
20258 const ptrdiff_t *nrhs,
20259 double *a,
20260 const ptrdiff_t *lda,
20261 ptrdiff_t *ipiv,
20262 const double *b,
20263 const ptrdiff_t *ldb,
20264 double *x,
20265 const ptrdiff_t *ldx,
20266 double *work,
20267 float *swork,
20268 double *rwork,
20269 ptrdiff_t *iter,
20270 ptrdiff_t *info
20271);
20272
20273/* Source: zcposv.f */
20274#define zcposv FORTRAN_WRAPPER(zcposv)
20275extern void zcposv(
20276 const char *uplo,
20277 const ptrdiff_t *n,
20278 const ptrdiff_t *nrhs,
20279 double *a,
20280 const ptrdiff_t *lda,
20281 const double *b,
20282 const ptrdiff_t *ldb,
20283 double *x,
20284 const ptrdiff_t *ldx,
20285 double *work,
20286 float *swork,
20287 double *rwork,
20288 ptrdiff_t *iter,
20289 ptrdiff_t *info
20290);
20291
20292/* Source: zdrscl.f */
20293#define zdrscl FORTRAN_WRAPPER(zdrscl)
20294extern void zdrscl(
20295 const ptrdiff_t *n,
20296 const double *sa,
20297 double *sx,
20298 const ptrdiff_t *incx
20299);
20300
20301/* Source: zgbbrd.f */
20302#define zgbbrd FORTRAN_WRAPPER(zgbbrd)
20303extern void zgbbrd(
20304 const char *vect,
20305 const ptrdiff_t *m,
20306 const ptrdiff_t *n,
20307 const ptrdiff_t *ncc,
20308 const ptrdiff_t *kl,
20309 const ptrdiff_t *ku,
20310 double *ab,
20311 const ptrdiff_t *ldab,
20312 double *d,
20313 double *e,
20314 double *q,
20315 const ptrdiff_t *ldq,
20316 double *pt,
20317 const ptrdiff_t *ldpt,
20318 double *c,
20319 const ptrdiff_t *ldc,
20320 double *work,
20321 double *rwork,
20322 ptrdiff_t *info
20323);
20324
20325/* Source: zgbcon.f */
20326#define zgbcon FORTRAN_WRAPPER(zgbcon)
20327extern void zgbcon(
20328 const char *norm,
20329 const ptrdiff_t *n,
20330 const ptrdiff_t *kl,
20331 const ptrdiff_t *ku,
20332 const double *ab,
20333 const ptrdiff_t *ldab,
20334 const ptrdiff_t *ipiv,
20335 const double *anorm,
20336 double *rcond,
20337 double *work,
20338 double *rwork,
20339 ptrdiff_t *info
20340);
20341
20342/* Source: zgbequ.f */
20343#define zgbequ FORTRAN_WRAPPER(zgbequ)
20344extern void zgbequ(
20345 const ptrdiff_t *m,
20346 const ptrdiff_t *n,
20347 const ptrdiff_t *kl,
20348 const ptrdiff_t *ku,
20349 const double *ab,
20350 const ptrdiff_t *ldab,
20351 double *r,
20352 double *c,
20353 double *rowcnd,
20354 double *colcnd,
20355 double *amax,
20356 ptrdiff_t *info
20357);
20358
20359/* Source: zgbequb.f */
20360#define zgbequb FORTRAN_WRAPPER(zgbequb)
20361extern void zgbequb(
20362 const ptrdiff_t *m,
20363 const ptrdiff_t *n,
20364 const ptrdiff_t *kl,
20365 const ptrdiff_t *ku,
20366 const double *ab,
20367 const ptrdiff_t *ldab,
20368 double *r,
20369 double *c,
20370 double *rowcnd,
20371 double *colcnd,
20372 double *amax,
20373 ptrdiff_t *info
20374);
20375
20376/* Source: zgbrfs.f */
20377#define zgbrfs FORTRAN_WRAPPER(zgbrfs)
20378extern void zgbrfs(
20379 const char *trans,
20380 const ptrdiff_t *n,
20381 const ptrdiff_t *kl,
20382 const ptrdiff_t *ku,
20383 const ptrdiff_t *nrhs,
20384 const double *ab,
20385 const ptrdiff_t *ldab,
20386 const double *afb,
20387 const ptrdiff_t *ldafb,
20388 const ptrdiff_t *ipiv,
20389 const double *b,
20390 const ptrdiff_t *ldb,
20391 double *x,
20392 const ptrdiff_t *ldx,
20393 double *ferr,
20394 double *berr,
20395 double *work,
20396 double *rwork,
20397 ptrdiff_t *info
20398);
20399
20400/* Source: zgbsv.f */
20401#define zgbsv FORTRAN_WRAPPER(zgbsv)
20402extern void zgbsv(
20403 const ptrdiff_t *n,
20404 const ptrdiff_t *kl,
20405 const ptrdiff_t *ku,
20406 const ptrdiff_t *nrhs,
20407 double *ab,
20408 const ptrdiff_t *ldab,
20409 ptrdiff_t *ipiv,
20410 double *b,
20411 const ptrdiff_t *ldb,
20412 ptrdiff_t *info
20413);
20414
20415/* Source: zgbsvx.f */
20416#define zgbsvx FORTRAN_WRAPPER(zgbsvx)
20417extern void zgbsvx(
20418 const char *fact,
20419 const char *trans,
20420 const ptrdiff_t *n,
20421 const ptrdiff_t *kl,
20422 const ptrdiff_t *ku,
20423 const ptrdiff_t *nrhs,
20424 double *ab,
20425 const ptrdiff_t *ldab,
20426 double *afb,
20427 const ptrdiff_t *ldafb,
20428 ptrdiff_t *ipiv,
20429 char *equed,
20430 double *r,
20431 double *c,
20432 double *b,
20433 const ptrdiff_t *ldb,
20434 double *x,
20435 const ptrdiff_t *ldx,
20436 double *rcond,
20437 double *ferr,
20438 double *berr,
20439 double *work,
20440 double *rwork,
20441 ptrdiff_t *info
20442);
20443
20444/* Source: zgbtf2.f */
20445#define zgbtf2 FORTRAN_WRAPPER(zgbtf2)
20446extern void zgbtf2(
20447 const ptrdiff_t *m,
20448 const ptrdiff_t *n,
20449 const ptrdiff_t *kl,
20450 const ptrdiff_t *ku,
20451 double *ab,
20452 const ptrdiff_t *ldab,
20453 ptrdiff_t *ipiv,
20454 ptrdiff_t *info
20455);
20456
20457/* Source: zgbtrf.f */
20458#define zgbtrf FORTRAN_WRAPPER(zgbtrf)
20459extern void zgbtrf(
20460 const ptrdiff_t *m,
20461 const ptrdiff_t *n,
20462 const ptrdiff_t *kl,
20463 const ptrdiff_t *ku,
20464 double *ab,
20465 const ptrdiff_t *ldab,
20466 ptrdiff_t *ipiv,
20467 ptrdiff_t *info
20468);
20469
20470/* Source: zgbtrs.f */
20471#define zgbtrs FORTRAN_WRAPPER(zgbtrs)
20472extern void zgbtrs(
20473 const char *trans,
20474 const ptrdiff_t *n,
20475 const ptrdiff_t *kl,
20476 const ptrdiff_t *ku,
20477 const ptrdiff_t *nrhs,
20478 const double *ab,
20479 const ptrdiff_t *ldab,
20480 const ptrdiff_t *ipiv,
20481 double *b,
20482 const ptrdiff_t *ldb,
20483 ptrdiff_t *info
20484);
20485
20486/* Source: zgebak.f */
20487#define zgebak FORTRAN_WRAPPER(zgebak)
20488extern void zgebak(
20489 const char *job,
20490 const char *side,
20491 const ptrdiff_t *n,
20492 const ptrdiff_t *ilo,
20493 const ptrdiff_t *ihi,
20494 const double *scale,
20495 const ptrdiff_t *m,
20496 double *v,
20497 const ptrdiff_t *ldv,
20498 ptrdiff_t *info
20499);
20500
20501/* Source: zgebal.f */
20502#define zgebal FORTRAN_WRAPPER(zgebal)
20503extern void zgebal(
20504 const char *job,
20505 const ptrdiff_t *n,
20506 double *a,
20507 const ptrdiff_t *lda,
20508 ptrdiff_t *ilo,
20509 ptrdiff_t *ihi,
20510 double *scale,
20511 ptrdiff_t *info
20512);
20513
20514/* Source: zgebd2.f */
20515#define zgebd2 FORTRAN_WRAPPER(zgebd2)
20516extern void zgebd2(
20517 const ptrdiff_t *m,
20518 const ptrdiff_t *n,
20519 double *a,
20520 const ptrdiff_t *lda,
20521 double *d,
20522 double *e,
20523 double *tauq,
20524 double *taup,
20525 double *work,
20526 ptrdiff_t *info
20527);
20528
20529/* Source: zgebrd.f */
20530#define zgebrd FORTRAN_WRAPPER(zgebrd)
20531extern void zgebrd(
20532 const ptrdiff_t *m,
20533 const ptrdiff_t *n,
20534 double *a,
20535 const ptrdiff_t *lda,
20536 double *d,
20537 double *e,
20538 double *tauq,
20539 double *taup,
20540 double *work,
20541 const ptrdiff_t *lwork,
20542 ptrdiff_t *info
20543);
20544
20545/* Source: zgecon.f */
20546#define zgecon FORTRAN_WRAPPER(zgecon)
20547extern void zgecon(
20548 const char *norm,
20549 const ptrdiff_t *n,
20550 const double *a,
20551 const ptrdiff_t *lda,
20552 const double *anorm,
20553 double *rcond,
20554 double *work,
20555 double *rwork,
20556 ptrdiff_t *info
20557);
20558
20559/* Source: zgeequ.f */
20560#define zgeequ FORTRAN_WRAPPER(zgeequ)
20561extern void zgeequ(
20562 const ptrdiff_t *m,
20563 const ptrdiff_t *n,
20564 const double *a,
20565 const ptrdiff_t *lda,
20566 double *r,
20567 double *c,
20568 double *rowcnd,
20569 double *colcnd,
20570 double *amax,
20571 ptrdiff_t *info
20572);
20573
20574/* Source: zgeequb.f */
20575#define zgeequb FORTRAN_WRAPPER(zgeequb)
20576extern void zgeequb(
20577 const ptrdiff_t *m,
20578 const ptrdiff_t *n,
20579 const double *a,
20580 const ptrdiff_t *lda,
20581 double *r,
20582 double *c,
20583 double *rowcnd,
20584 double *colcnd,
20585 double *amax,
20586 ptrdiff_t *info
20587);
20588
20589/* Source: zgees.f */
20590#define zgees FORTRAN_WRAPPER(zgees)
20591extern void zgees(
20592 const char *jobvs,
20593 const char *sort,
20594 ptrdiff_t (*select)(),
20595 const ptrdiff_t *n,
20596 double *a,
20597 const ptrdiff_t *lda,
20598 ptrdiff_t *sdim,
20599 double *w,
20600 double *vs,
20601 const ptrdiff_t *ldvs,
20602 double *work,
20603 const ptrdiff_t *lwork,
20604 double *rwork,
20605 ptrdiff_t *bwork,
20606 ptrdiff_t *info
20607);
20608
20609/* Source: zgeesx.f */
20610#define zgeesx FORTRAN_WRAPPER(zgeesx)
20611extern void zgeesx(
20612 const char *jobvs,
20613 const char *sort,
20614 ptrdiff_t (*select)(),
20615 const char *sense,
20616 const ptrdiff_t *n,
20617 double *a,
20618 const ptrdiff_t *lda,
20619 ptrdiff_t *sdim,
20620 double *w,
20621 double *vs,
20622 const ptrdiff_t *ldvs,
20623 double *rconde,
20624 double *rcondv,
20625 double *work,
20626 const ptrdiff_t *lwork,
20627 double *rwork,
20628 ptrdiff_t *bwork,
20629 ptrdiff_t *info
20630);
20631
20632/* Source: zgeev.f */
20633#define zgeev FORTRAN_WRAPPER(zgeev)
20634extern void zgeev(
20635 const char *jobvl,
20636 const char *jobvr,
20637 const ptrdiff_t *n,
20638 double *a,
20639 const ptrdiff_t *lda,
20640 double *w,
20641 double *vl,
20642 const ptrdiff_t *ldvl,
20643 double *vr,
20644 const ptrdiff_t *ldvr,
20645 double *work,
20646 const ptrdiff_t *lwork,
20647 double *rwork,
20648 ptrdiff_t *info
20649);
20650
20651/* Source: zgeevx.f */
20652#define zgeevx FORTRAN_WRAPPER(zgeevx)
20653extern void zgeevx(
20654 const char *balanc,
20655 const char *jobvl,
20656 const char *jobvr,
20657 const char *sense,
20658 const ptrdiff_t *n,
20659 double *a,
20660 const ptrdiff_t *lda,
20661 double *w,
20662 double *vl,
20663 const ptrdiff_t *ldvl,
20664 double *vr,
20665 const ptrdiff_t *ldvr,
20666 ptrdiff_t *ilo,
20667 ptrdiff_t *ihi,
20668 double *scale,
20669 double *abnrm,
20670 double *rconde,
20671 double *rcondv,
20672 double *work,
20673 const ptrdiff_t *lwork,
20674 double *rwork,
20675 ptrdiff_t *info
20676);
20677
20678/* Source: zgegs.f */
20679#define zgegs FORTRAN_WRAPPER(zgegs)
20680extern void zgegs(
20681 const char *jobvsl,
20682 const char *jobvsr,
20683 const ptrdiff_t *n,
20684 double *a,
20685 const ptrdiff_t *lda,
20686 double *b,
20687 const ptrdiff_t *ldb,
20688 double *alpha,
20689 double *beta,
20690 double *vsl,
20691 const ptrdiff_t *ldvsl,
20692 double *vsr,
20693 const ptrdiff_t *ldvsr,
20694 double *work,
20695 const ptrdiff_t *lwork,
20696 double *rwork,
20697 ptrdiff_t *info
20698);
20699
20700/* Source: zgegv.f */
20701#define zgegv FORTRAN_WRAPPER(zgegv)
20702extern void zgegv(
20703 const char *jobvl,
20704 const char *jobvr,
20705 const ptrdiff_t *n,
20706 double *a,
20707 const ptrdiff_t *lda,
20708 double *b,
20709 const ptrdiff_t *ldb,
20710 double *alpha,
20711 double *beta,
20712 double *vl,
20713 const ptrdiff_t *ldvl,
20714 double *vr,
20715 const ptrdiff_t *ldvr,
20716 double *work,
20717 const ptrdiff_t *lwork,
20718 double *rwork,
20719 ptrdiff_t *info
20720);
20721
20722/* Source: zgehd2.f */
20723#define zgehd2 FORTRAN_WRAPPER(zgehd2)
20724extern void zgehd2(
20725 const ptrdiff_t *n,
20726 const ptrdiff_t *ilo,
20727 const ptrdiff_t *ihi,
20728 double *a,
20729 const ptrdiff_t *lda,
20730 double *tau,
20731 double *work,
20732 ptrdiff_t *info
20733);
20734
20735/* Source: zgehrd.f */
20736#define zgehrd FORTRAN_WRAPPER(zgehrd)
20737extern void zgehrd(
20738 const ptrdiff_t *n,
20739 const ptrdiff_t *ilo,
20740 const ptrdiff_t *ihi,
20741 double *a,
20742 const ptrdiff_t *lda,
20743 double *tau,
20744 double *work,
20745 const ptrdiff_t *lwork,
20746 ptrdiff_t *info
20747);
20748
20749/* Source: zgelq2.f */
20750#define zgelq2 FORTRAN_WRAPPER(zgelq2)
20751extern void zgelq2(
20752 const ptrdiff_t *m,
20753 const ptrdiff_t *n,
20754 double *a,
20755 const ptrdiff_t *lda,
20756 double *tau,
20757 double *work,
20758 ptrdiff_t *info
20759);
20760
20761/* Source: zgelqf.f */
20762#define zgelqf FORTRAN_WRAPPER(zgelqf)
20763extern void zgelqf(
20764 const ptrdiff_t *m,
20765 const ptrdiff_t *n,
20766 double *a,
20767 const ptrdiff_t *lda,
20768 double *tau,
20769 double *work,
20770 const ptrdiff_t *lwork,
20771 ptrdiff_t *info
20772);
20773
20774/* Source: zgels.f */
20775#define zgels FORTRAN_WRAPPER(zgels)
20776extern void zgels(
20777 const char *trans,
20778 const ptrdiff_t *m,
20779 const ptrdiff_t *n,
20780 const ptrdiff_t *nrhs,
20781 double *a,
20782 const ptrdiff_t *lda,
20783 double *b,
20784 const ptrdiff_t *ldb,
20785 double *work,
20786 const ptrdiff_t *lwork,
20787 ptrdiff_t *info
20788);
20789
20790/* Source: zgelsd.f */
20791#define zgelsd FORTRAN_WRAPPER(zgelsd)
20792extern void zgelsd(
20793 const ptrdiff_t *m,
20794 const ptrdiff_t *n,
20795 const ptrdiff_t *nrhs,
20796 const double *a,
20797 const ptrdiff_t *lda,
20798 double *b,
20799 const ptrdiff_t *ldb,
20800 double *s,
20801 const double *rcond,
20802 ptrdiff_t *rank,
20803 double *work,
20804 const ptrdiff_t *lwork,
20805 double *rwork,
20806 ptrdiff_t *iwork,
20807 ptrdiff_t *info
20808);
20809
20810/* Source: zgelss.f */
20811#define zgelss FORTRAN_WRAPPER(zgelss)
20812extern void zgelss(
20813 const ptrdiff_t *m,
20814 const ptrdiff_t *n,
20815 const ptrdiff_t *nrhs,
20816 double *a,
20817 const ptrdiff_t *lda,
20818 double *b,
20819 const ptrdiff_t *ldb,
20820 double *s,
20821 const double *rcond,
20822 ptrdiff_t *rank,
20823 double *work,
20824 const ptrdiff_t *lwork,
20825 double *rwork,
20826 ptrdiff_t *info
20827);
20828
20829/* Source: zgelsx.f */
20830#define zgelsx FORTRAN_WRAPPER(zgelsx)
20831extern void zgelsx(
20832 const ptrdiff_t *m,
20833 const ptrdiff_t *n,
20834 const ptrdiff_t *nrhs,
20835 double *a,
20836 const ptrdiff_t *lda,
20837 double *b,
20838 const ptrdiff_t *ldb,
20839 ptrdiff_t *jpvt,
20840 const double *rcond,
20841 ptrdiff_t *rank,
20842 double *work,
20843 double *rwork,
20844 ptrdiff_t *info
20845);
20846
20847/* Source: zgelsy.f */
20848#define zgelsy FORTRAN_WRAPPER(zgelsy)
20849extern void zgelsy(
20850 const ptrdiff_t *m,
20851 const ptrdiff_t *n,
20852 const ptrdiff_t *nrhs,
20853 double *a,
20854 const ptrdiff_t *lda,
20855 double *b,
20856 const ptrdiff_t *ldb,
20857 ptrdiff_t *jpvt,
20858 const double *rcond,
20859 ptrdiff_t *rank,
20860 double *work,
20861 const ptrdiff_t *lwork,
20862 double *rwork,
20863 ptrdiff_t *info
20864);
20865
20866/* Source: zgemqrt.f */
20867#define zgemqrt FORTRAN_WRAPPER(zgemqrt)
20868extern void zgemqrt(
20869 const char *side,
20870 const char *trans,
20871 const ptrdiff_t *m,
20872 const ptrdiff_t *n,
20873 const ptrdiff_t *k,
20874 const ptrdiff_t *nb,
20875 const double *v,
20876 const ptrdiff_t *ldv,
20877 const double *t,
20878 const ptrdiff_t *ldt,
20879 double *c,
20880 const ptrdiff_t *ldc,
20881 double *work,
20882 ptrdiff_t *info
20883);
20884
20885/* Source: zgeql2.f */
20886#define zgeql2 FORTRAN_WRAPPER(zgeql2)
20887extern void zgeql2(
20888 const ptrdiff_t *m,
20889 const ptrdiff_t *n,
20890 double *a,
20891 const ptrdiff_t *lda,
20892 double *tau,
20893 double *work,
20894 ptrdiff_t *info
20895);
20896
20897/* Source: zgeqlf.f */
20898#define zgeqlf FORTRAN_WRAPPER(zgeqlf)
20899extern void zgeqlf(
20900 const ptrdiff_t *m,
20901 const ptrdiff_t *n,
20902 double *a,
20903 const ptrdiff_t *lda,
20904 double *tau,
20905 double *work,
20906 const ptrdiff_t *lwork,
20907 ptrdiff_t *info
20908);
20909
20910/* Source: zgeqp3.f */
20911#define zgeqp3 FORTRAN_WRAPPER(zgeqp3)
20912extern void zgeqp3(
20913 const ptrdiff_t *m,
20914 const ptrdiff_t *n,
20915 double *a,
20916 const ptrdiff_t *lda,
20917 ptrdiff_t *jpvt,
20918 double *tau,
20919 double *work,
20920 const ptrdiff_t *lwork,
20921 double *rwork,
20922 ptrdiff_t *info
20923);
20924
20925/* Source: zgeqpf.f */
20926#define zgeqpf FORTRAN_WRAPPER(zgeqpf)
20927extern void zgeqpf(
20928 const ptrdiff_t *m,
20929 const ptrdiff_t *n,
20930 double *a,
20931 const ptrdiff_t *lda,
20932 ptrdiff_t *jpvt,
20933 double *tau,
20934 double *work,
20935 double *rwork,
20936 ptrdiff_t *info
20937);
20938
20939/* Source: zgeqr2.f */
20940#define zgeqr2 FORTRAN_WRAPPER(zgeqr2)
20941extern void zgeqr2(
20942 const ptrdiff_t *m,
20943 const ptrdiff_t *n,
20944 double *a,
20945 const ptrdiff_t *lda,
20946 double *tau,
20947 double *work,
20948 ptrdiff_t *info
20949);
20950
20951/* Source: zgeqr2p.f */
20952#define zgeqr2p FORTRAN_WRAPPER(zgeqr2p)
20953extern void zgeqr2p(
20954 const ptrdiff_t *m,
20955 const ptrdiff_t *n,
20956 double *a,
20957 const ptrdiff_t *lda,
20958 double *tau,
20959 double *work,
20960 ptrdiff_t *info
20961);
20962
20963/* Source: zgeqrf.f */
20964#define zgeqrf FORTRAN_WRAPPER(zgeqrf)
20965extern void zgeqrf(
20966 const ptrdiff_t *m,
20967 const ptrdiff_t *n,
20968 double *a,
20969 const ptrdiff_t *lda,
20970 double *tau,
20971 double *work,
20972 const ptrdiff_t *lwork,
20973 ptrdiff_t *info
20974);
20975
20976/* Source: zgeqrfp.f */
20977#define zgeqrfp FORTRAN_WRAPPER(zgeqrfp)
20978extern void zgeqrfp(
20979 const ptrdiff_t *m,
20980 const ptrdiff_t *n,
20981 double *a,
20982 const ptrdiff_t *lda,
20983 double *tau,
20984 double *work,
20985 const ptrdiff_t *lwork,
20986 ptrdiff_t *info
20987);
20988
20989/* Source: zgeqrt.f */
20990#define zgeqrt FORTRAN_WRAPPER(zgeqrt)
20991extern void zgeqrt(
20992 const ptrdiff_t *m,
20993 const ptrdiff_t *n,
20994 const ptrdiff_t *nb,
20995 double *a,
20996 const ptrdiff_t *lda,
20997 double *t,
20998 const ptrdiff_t *ldt,
20999 double *work,
21000 ptrdiff_t *info
21001);
21002
21003/* Source: zgeqrt2.f */
21004#define zgeqrt2 FORTRAN_WRAPPER(zgeqrt2)
21005extern void zgeqrt2(
21006 const ptrdiff_t *m,
21007 const ptrdiff_t *n,
21008 double *a,
21009 const ptrdiff_t *lda,
21010 double *t,
21011 const ptrdiff_t *ldt,
21012 ptrdiff_t *info
21013);
21014
21015/* Source: zgeqrt3.f */
21016#define zgeqrt3 FORTRAN_WRAPPER(zgeqrt3)
21017extern void zgeqrt3(
21018 const ptrdiff_t *m,
21019 const ptrdiff_t *n,
21020 double *a,
21021 const ptrdiff_t *lda,
21022 double *t,
21023 const ptrdiff_t *ldt,
21024 ptrdiff_t *info
21025);
21026
21027/* Source: zgerfs.f */
21028#define zgerfs FORTRAN_WRAPPER(zgerfs)
21029extern void zgerfs(
21030 const char *trans,
21031 const ptrdiff_t *n,
21032 const ptrdiff_t *nrhs,
21033 const double *a,
21034 const ptrdiff_t *lda,
21035 const double *af,
21036 const ptrdiff_t *ldaf,
21037 const ptrdiff_t *ipiv,
21038 const double *b,
21039 const ptrdiff_t *ldb,
21040 double *x,
21041 const ptrdiff_t *ldx,
21042 double *ferr,
21043 double *berr,
21044 double *work,
21045 double *rwork,
21046 ptrdiff_t *info
21047);
21048
21049/* Source: zgerq2.f */
21050#define zgerq2 FORTRAN_WRAPPER(zgerq2)
21051extern void zgerq2(
21052 const ptrdiff_t *m,
21053 const ptrdiff_t *n,
21054 double *a,
21055 const ptrdiff_t *lda,
21056 double *tau,
21057 double *work,
21058 ptrdiff_t *info
21059);
21060
21061/* Source: zgerqf.f */
21062#define zgerqf FORTRAN_WRAPPER(zgerqf)
21063extern void zgerqf(
21064 const ptrdiff_t *m,
21065 const ptrdiff_t *n,
21066 double *a,
21067 const ptrdiff_t *lda,
21068 double *tau,
21069 double *work,
21070 const ptrdiff_t *lwork,
21071 ptrdiff_t *info
21072);
21073
21074/* Source: zgesc2.f */
21075#define zgesc2 FORTRAN_WRAPPER(zgesc2)
21076extern void zgesc2(
21077 const ptrdiff_t *n,
21078 const double *a,
21079 const ptrdiff_t *lda,
21080 double *rhs,
21081 const ptrdiff_t *ipiv,
21082 const ptrdiff_t *jpiv,
21083 double *scale
21084);
21085
21086/* Source: zgesdd.f */
21087#define zgesdd FORTRAN_WRAPPER(zgesdd)
21088extern void zgesdd(
21089 const char *jobz,
21090 const ptrdiff_t *m,
21091 const ptrdiff_t *n,
21092 double *a,
21093 const ptrdiff_t *lda,
21094 double *s,
21095 double *u,
21096 const ptrdiff_t *ldu,
21097 double *vt,
21098 const ptrdiff_t *ldvt,
21099 double *work,
21100 const ptrdiff_t *lwork,
21101 double *rwork,
21102 ptrdiff_t *iwork,
21103 ptrdiff_t *info
21104);
21105
21106/* Source: zgesv.f */
21107#define zgesv FORTRAN_WRAPPER(zgesv)
21108extern void zgesv(
21109 const ptrdiff_t *n,
21110 const ptrdiff_t *nrhs,
21111 double *a,
21112 const ptrdiff_t *lda,
21113 ptrdiff_t *ipiv,
21114 double *b,
21115 const ptrdiff_t *ldb,
21116 ptrdiff_t *info
21117);
21118
21119/* Source: zgesvd.f */
21120#define zgesvd FORTRAN_WRAPPER(zgesvd)
21121extern void zgesvd(
21122 const char *jobu,
21123 const char *jobvt,
21124 const ptrdiff_t *m,
21125 const ptrdiff_t *n,
21126 double *a,
21127 const ptrdiff_t *lda,
21128 double *s,
21129 double *u,
21130 const ptrdiff_t *ldu,
21131 double *vt,
21132 const ptrdiff_t *ldvt,
21133 double *work,
21134 const ptrdiff_t *lwork,
21135 double *rwork,
21136 ptrdiff_t *info
21137);
21138
21139/* Source: zgesvx.f */
21140#define zgesvx FORTRAN_WRAPPER(zgesvx)
21141extern void zgesvx(
21142 const char *fact,
21143 const char *trans,
21144 const ptrdiff_t *n,
21145 const ptrdiff_t *nrhs,
21146 double *a,
21147 const ptrdiff_t *lda,
21148 double *af,
21149 const ptrdiff_t *ldaf,
21150 ptrdiff_t *ipiv,
21151 char *equed,
21152 double *r,
21153 double *c,
21154 double *b,
21155 const ptrdiff_t *ldb,
21156 double *x,
21157 const ptrdiff_t *ldx,
21158 double *rcond,
21159 double *ferr,
21160 double *berr,
21161 double *work,
21162 double *rwork,
21163 ptrdiff_t *info
21164);
21165
21166/* Source: zgetc2.f */
21167#define zgetc2 FORTRAN_WRAPPER(zgetc2)
21168extern void zgetc2(
21169 const ptrdiff_t *n,
21170 double *a,
21171 const ptrdiff_t *lda,
21172 ptrdiff_t *ipiv,
21173 ptrdiff_t *jpiv,
21174 ptrdiff_t *info
21175);
21176
21177/* Source: zgetf2.f */
21178#define zgetf2 FORTRAN_WRAPPER(zgetf2)
21179extern void zgetf2(
21180 const ptrdiff_t *m,
21181 const ptrdiff_t *n,
21182 double *a,
21183 const ptrdiff_t *lda,
21184 ptrdiff_t *ipiv,
21185 ptrdiff_t *info
21186);
21187
21188/* Source: zgetrf.f */
21189#define zgetrf FORTRAN_WRAPPER(zgetrf)
21190extern void zgetrf(
21191 const ptrdiff_t *m,
21192 const ptrdiff_t *n,
21193 double *a,
21194 const ptrdiff_t *lda,
21195 ptrdiff_t *ipiv,
21196 ptrdiff_t *info
21197);
21198
21199/* Source: zgetri.f */
21200#define zgetri FORTRAN_WRAPPER(zgetri)
21201extern void zgetri(
21202 const ptrdiff_t *n,
21203 double *a,
21204 const ptrdiff_t *lda,
21205 const ptrdiff_t *ipiv,
21206 double *work,
21207 const ptrdiff_t *lwork,
21208 ptrdiff_t *info
21209);
21210
21211/* Source: zgetrs.f */
21212#define zgetrs FORTRAN_WRAPPER(zgetrs)
21213extern void zgetrs(
21214 const char *trans,
21215 const ptrdiff_t *n,
21216 const ptrdiff_t *nrhs,
21217 const double *a,
21218 const ptrdiff_t *lda,
21219 const ptrdiff_t *ipiv,
21220 double *b,
21221 const ptrdiff_t *ldb,
21222 ptrdiff_t *info
21223);
21224
21225/* Source: zggbak.f */
21226#define zggbak FORTRAN_WRAPPER(zggbak)
21227extern void zggbak(
21228 const char *job,
21229 const char *side,
21230 const ptrdiff_t *n,
21231 const ptrdiff_t *ilo,
21232 const ptrdiff_t *ihi,
21233 const double *lscale,
21234 const double *rscale,
21235 const ptrdiff_t *m,
21236 double *v,
21237 const ptrdiff_t *ldv,
21238 ptrdiff_t *info
21239);
21240
21241/* Source: zggbal.f */
21242#define zggbal FORTRAN_WRAPPER(zggbal)
21243extern void zggbal(
21244 const char *job,
21245 const ptrdiff_t *n,
21246 double *a,
21247 const ptrdiff_t *lda,
21248 double *b,
21249 const ptrdiff_t *ldb,
21250 ptrdiff_t *ilo,
21251 ptrdiff_t *ihi,
21252 double *lscale,
21253 double *rscale,
21254 double *work,
21255 ptrdiff_t *info
21256);
21257
21258/* Source: zgges.f */
21259#define zgges FORTRAN_WRAPPER(zgges)
21260extern void zgges(
21261 const char *jobvsl,
21262 const char *jobvsr,
21263 const char *sort,
21264 ptrdiff_t (*selctg)(),
21265 const ptrdiff_t *n,
21266 double *a,
21267 const ptrdiff_t *lda,
21268 double *b,
21269 const ptrdiff_t *ldb,
21270 ptrdiff_t *sdim,
21271 double *alpha,
21272 double *beta,
21273 double *vsl,
21274 const ptrdiff_t *ldvsl,
21275 double *vsr,
21276 const ptrdiff_t *ldvsr,
21277 double *work,
21278 const ptrdiff_t *lwork,
21279 double *rwork,
21280 ptrdiff_t *bwork,
21281 ptrdiff_t *info
21282);
21283
21284/* Source: zggesx.f */
21285#define zggesx FORTRAN_WRAPPER(zggesx)
21286extern void zggesx(
21287 const char *jobvsl,
21288 const char *jobvsr,
21289 const char *sort,
21290 ptrdiff_t (*selctg)(),
21291 const char *sense,
21292 const ptrdiff_t *n,
21293 double *a,
21294 const ptrdiff_t *lda,
21295 double *b,
21296 const ptrdiff_t *ldb,
21297 ptrdiff_t *sdim,
21298 double *alpha,
21299 double *beta,
21300 double *vsl,
21301 const ptrdiff_t *ldvsl,
21302 double *vsr,
21303 const ptrdiff_t *ldvsr,
21304 double *rconde,
21305 double *rcondv,
21306 double *work,
21307 const ptrdiff_t *lwork,
21308 double *rwork,
21309 ptrdiff_t *iwork,
21310 const ptrdiff_t *liwork,
21311 ptrdiff_t *bwork,
21312 ptrdiff_t *info
21313);
21314
21315/* Source: zggev.f */
21316#define zggev FORTRAN_WRAPPER(zggev)
21317extern void zggev(
21318 const char *jobvl,
21319 const char *jobvr,
21320 const ptrdiff_t *n,
21321 double *a,
21322 const ptrdiff_t *lda,
21323 double *b,
21324 const ptrdiff_t *ldb,
21325 double *alpha,
21326 double *beta,
21327 double *vl,
21328 const ptrdiff_t *ldvl,
21329 double *vr,
21330 const ptrdiff_t *ldvr,
21331 double *work,
21332 const ptrdiff_t *lwork,
21333 double *rwork,
21334 ptrdiff_t *info
21335);
21336
21337/* Source: zggevx.f */
21338#define zggevx FORTRAN_WRAPPER(zggevx)
21339extern void zggevx(
21340 const char *balanc,
21341 const char *jobvl,
21342 const char *jobvr,
21343 const char *sense,
21344 const ptrdiff_t *n,
21345 double *a,
21346 const ptrdiff_t *lda,
21347 double *b,
21348 const ptrdiff_t *ldb,
21349 double *alpha,
21350 double *beta,
21351 double *vl,
21352 const ptrdiff_t *ldvl,
21353 double *vr,
21354 const ptrdiff_t *ldvr,
21355 ptrdiff_t *ilo,
21356 ptrdiff_t *ihi,
21357 double *lscale,
21358 double *rscale,
21359 double *abnrm,
21360 double *bbnrm,
21361 double *rconde,
21362 double *rcondv,
21363 double *work,
21364 const ptrdiff_t *lwork,
21365 double *rwork,
21366 ptrdiff_t *iwork,
21367 ptrdiff_t *bwork,
21368 ptrdiff_t *info
21369);
21370
21371/* Source: zggglm.f */
21372#define zggglm FORTRAN_WRAPPER(zggglm)
21373extern void zggglm(
21374 const ptrdiff_t *n,
21375 const ptrdiff_t *m,
21376 const ptrdiff_t *p,
21377 double *a,
21378 const ptrdiff_t *lda,
21379 double *b,
21380 const ptrdiff_t *ldb,
21381 double *d,
21382 double *x,
21383 double *y,
21384 double *work,
21385 const ptrdiff_t *lwork,
21386 ptrdiff_t *info
21387);
21388
21389/* Source: zgghrd.f */
21390#define zgghrd FORTRAN_WRAPPER(zgghrd)
21391extern void zgghrd(
21392 const char *compq,
21393 const char *compz,
21394 const ptrdiff_t *n,
21395 const ptrdiff_t *ilo,
21396 const ptrdiff_t *ihi,
21397 double *a,
21398 const ptrdiff_t *lda,
21399 double *b,
21400 const ptrdiff_t *ldb,
21401 double *q,
21402 const ptrdiff_t *ldq,
21403 double *z,
21404 const ptrdiff_t *ldz,
21405 ptrdiff_t *info
21406);
21407
21408/* Source: zgglse.f */
21409#define zgglse FORTRAN_WRAPPER(zgglse)
21410extern void zgglse(
21411 const ptrdiff_t *m,
21412 const ptrdiff_t *n,
21413 const ptrdiff_t *p,
21414 double *a,
21415 const ptrdiff_t *lda,
21416 double *b,
21417 const ptrdiff_t *ldb,
21418 double *c,
21419 double *d,
21420 double *x,
21421 double *work,
21422 const ptrdiff_t *lwork,
21423 ptrdiff_t *info
21424);
21425
21426/* Source: zggqrf.f */
21427#define zggqrf FORTRAN_WRAPPER(zggqrf)
21428extern void zggqrf(
21429 const ptrdiff_t *n,
21430 const ptrdiff_t *m,
21431 const ptrdiff_t *p,
21432 double *a,
21433 const ptrdiff_t *lda,
21434 double *taua,
21435 double *b,
21436 const ptrdiff_t *ldb,
21437 double *taub,
21438 double *work,
21439 const ptrdiff_t *lwork,
21440 ptrdiff_t *info
21441);
21442
21443/* Source: zggrqf.f */
21444#define zggrqf FORTRAN_WRAPPER(zggrqf)
21445extern void zggrqf(
21446 const ptrdiff_t *m,
21447 const ptrdiff_t *p,
21448 const ptrdiff_t *n,
21449 double *a,
21450 const ptrdiff_t *lda,
21451 double *taua,
21452 double *b,
21453 const ptrdiff_t *ldb,
21454 double *taub,
21455 double *work,
21456 const ptrdiff_t *lwork,
21457 ptrdiff_t *info
21458);
21459
21460/* Source: zggsvd.f */
21461#define zggsvd FORTRAN_WRAPPER(zggsvd)
21462extern void zggsvd(
21463 const char *jobu,
21464 const char *jobv,
21465 const char *jobq,
21466 const ptrdiff_t *m,
21467 const ptrdiff_t *n,
21468 const ptrdiff_t *p,
21469 ptrdiff_t *k,
21470 ptrdiff_t *l,
21471 double *a,
21472 const ptrdiff_t *lda,
21473 double *b,
21474 const ptrdiff_t *ldb,
21475 double *alpha,
21476 double *beta,
21477 double *u,
21478 const ptrdiff_t *ldu,
21479 double *v,
21480 const ptrdiff_t *ldv,
21481 double *q,
21482 const ptrdiff_t *ldq,
21483 double *work,
21484 double *rwork,
21485 ptrdiff_t *iwork,
21486 ptrdiff_t *info
21487);
21488
21489/* Source: zggsvp.f */
21490#define zggsvp FORTRAN_WRAPPER(zggsvp)
21491extern void zggsvp(
21492 const char *jobu,
21493 const char *jobv,
21494 const char *jobq,
21495 const ptrdiff_t *m,
21496 const ptrdiff_t *p,
21497 const ptrdiff_t *n,
21498 double *a,
21499 const ptrdiff_t *lda,
21500 double *b,
21501 const ptrdiff_t *ldb,
21502 const double *tola,
21503 const double *tolb,
21504 ptrdiff_t *k,
21505 ptrdiff_t *l,
21506 double *u,
21507 const ptrdiff_t *ldu,
21508 double *v,
21509 const ptrdiff_t *ldv,
21510 double *q,
21511 const ptrdiff_t *ldq,
21512 ptrdiff_t *iwork,
21513 double *rwork,
21514 double *tau,
21515 double *work,
21516 ptrdiff_t *info
21517);
21518
21519/* Source: zgtcon.f */
21520#define zgtcon FORTRAN_WRAPPER(zgtcon)
21521extern void zgtcon(
21522 const char *norm,
21523 const ptrdiff_t *n,
21524 const double *dl,
21525 const double *d,
21526 const double *du,
21527 const double *du2,
21528 const ptrdiff_t *ipiv,
21529 const double *anorm,
21530 double *rcond,
21531 double *work,
21532 ptrdiff_t *info
21533);
21534
21535/* Source: zgtrfs.f */
21536#define zgtrfs FORTRAN_WRAPPER(zgtrfs)
21537extern void zgtrfs(
21538 const char *trans,
21539 const ptrdiff_t *n,
21540 const ptrdiff_t *nrhs,
21541 const double *dl,
21542 const double *d,
21543 const double *du,
21544 const double *dlf,
21545 const double *df,
21546 const double *duf,
21547 const double *du2,
21548 const ptrdiff_t *ipiv,
21549 const double *b,
21550 const ptrdiff_t *ldb,
21551 double *x,
21552 const ptrdiff_t *ldx,
21553 double *ferr,
21554 double *berr,
21555 double *work,
21556 double *rwork,
21557 ptrdiff_t *info
21558);
21559
21560/* Source: zgtsv.f */
21561#define zgtsv FORTRAN_WRAPPER(zgtsv)
21562extern void zgtsv(
21563 const ptrdiff_t *n,
21564 const ptrdiff_t *nrhs,
21565 double *dl,
21566 double *d,
21567 double *du,
21568 double *b,
21569 const ptrdiff_t *ldb,
21570 ptrdiff_t *info
21571);
21572
21573/* Source: zgtsvx.f */
21574#define zgtsvx FORTRAN_WRAPPER(zgtsvx)
21575extern void zgtsvx(
21576 const char *fact,
21577 const char *trans,
21578 const ptrdiff_t *n,
21579 const ptrdiff_t *nrhs,
21580 const double *dl,
21581 const double *d,
21582 const double *du,
21583 double *dlf,
21584 double *df,
21585 double *duf,
21586 double *du2,
21587 ptrdiff_t *ipiv,
21588 const double *b,
21589 const ptrdiff_t *ldb,
21590 double *x,
21591 const ptrdiff_t *ldx,
21592 double *rcond,
21593 double *ferr,
21594 double *berr,
21595 double *work,
21596 double *rwork,
21597 ptrdiff_t *info
21598);
21599
21600/* Source: zgttrf.f */
21601#define zgttrf FORTRAN_WRAPPER(zgttrf)
21602extern void zgttrf(
21603 const ptrdiff_t *n,
21604 double *dl,
21605 double *d,
21606 double *du,
21607 double *du2,
21608 ptrdiff_t *ipiv,
21609 ptrdiff_t *info
21610);
21611
21612/* Source: zgttrs.f */
21613#define zgttrs FORTRAN_WRAPPER(zgttrs)
21614extern void zgttrs(
21615 const char *trans,
21616 const ptrdiff_t *n,
21617 const ptrdiff_t *nrhs,
21618 const double *dl,
21619 const double *d,
21620 const double *du,
21621 const double *du2,
21622 const ptrdiff_t *ipiv,
21623 double *b,
21624 const ptrdiff_t *ldb,
21625 ptrdiff_t *info
21626);
21627
21628/* Source: zgtts2.f */
21629#define zgtts2 FORTRAN_WRAPPER(zgtts2)
21630extern void zgtts2(
21631 const ptrdiff_t *itrans,
21632 const ptrdiff_t *n,
21633 const ptrdiff_t *nrhs,
21634 const double *dl,
21635 const double *d,
21636 const double *du,
21637 const double *du2,
21638 const ptrdiff_t *ipiv,
21639 double *b,
21640 const ptrdiff_t *ldb
21641);
21642
21643/* Source: zhbev.f */
21644#define zhbev FORTRAN_WRAPPER(zhbev)
21645extern void zhbev(
21646 const char *jobz,
21647 const char *uplo,
21648 const ptrdiff_t *n,
21649 const ptrdiff_t *kd,
21650 double *ab,
21651 const ptrdiff_t *ldab,
21652 double *w,
21653 double *z,
21654 const ptrdiff_t *ldz,
21655 double *work,
21656 double *rwork,
21657 ptrdiff_t *info
21658);
21659
21660/* Source: zhbevd.f */
21661#define zhbevd FORTRAN_WRAPPER(zhbevd)
21662extern void zhbevd(
21663 const char *jobz,
21664 const char *uplo,
21665 const ptrdiff_t *n,
21666 const ptrdiff_t *kd,
21667 double *ab,
21668 const ptrdiff_t *ldab,
21669 double *w,
21670 double *z,
21671 const ptrdiff_t *ldz,
21672 double *work,
21673 const ptrdiff_t *lwork,
21674 double *rwork,
21675 const ptrdiff_t *lrwork,
21676 ptrdiff_t *iwork,
21677 const ptrdiff_t *liwork,
21678 ptrdiff_t *info
21679);
21680
21681/* Source: zhbevx.f */
21682#define zhbevx FORTRAN_WRAPPER(zhbevx)
21683extern void zhbevx(
21684 const char *jobz,
21685 const char *range,
21686 const char *uplo,
21687 const ptrdiff_t *n,
21688 const ptrdiff_t *kd,
21689 double *ab,
21690 const ptrdiff_t *ldab,
21691 double *q,
21692 const ptrdiff_t *ldq,
21693 const double *vl,
21694 const double *vu,
21695 const ptrdiff_t *il,
21696 const ptrdiff_t *iu,
21697 const double *abstol,
21698 ptrdiff_t *m,
21699 double *w,
21700 double *z,
21701 const ptrdiff_t *ldz,
21702 double *work,
21703 double *rwork,
21704 ptrdiff_t *iwork,
21705 ptrdiff_t *ifail,
21706 ptrdiff_t *info
21707);
21708
21709/* Source: zhbgst.f */
21710#define zhbgst FORTRAN_WRAPPER(zhbgst)
21711extern void zhbgst(
21712 const char *vect,
21713 const char *uplo,
21714 const ptrdiff_t *n,
21715 const ptrdiff_t *ka,
21716 const ptrdiff_t *kb,
21717 double *ab,
21718 const ptrdiff_t *ldab,
21719 const double *bb,
21720 const ptrdiff_t *ldbb,
21721 double *x,
21722 const ptrdiff_t *ldx,
21723 double *work,
21724 double *rwork,
21725 ptrdiff_t *info
21726);
21727
21728/* Source: zhbgv.f */
21729#define zhbgv FORTRAN_WRAPPER(zhbgv)
21730extern void zhbgv(
21731 const char *jobz,
21732 const char *uplo,
21733 const ptrdiff_t *n,
21734 const ptrdiff_t *ka,
21735 const ptrdiff_t *kb,
21736 double *ab,
21737 const ptrdiff_t *ldab,
21738 double *bb,
21739 const ptrdiff_t *ldbb,
21740 double *w,
21741 double *z,
21742 const ptrdiff_t *ldz,
21743 double *work,
21744 double *rwork,
21745 ptrdiff_t *info
21746);
21747
21748/* Source: zhbgvd.f */
21749#define zhbgvd FORTRAN_WRAPPER(zhbgvd)
21750extern void zhbgvd(
21751 const char *jobz,
21752 const char *uplo,
21753 const ptrdiff_t *n,
21754 const ptrdiff_t *ka,
21755 const ptrdiff_t *kb,
21756 double *ab,
21757 const ptrdiff_t *ldab,
21758 double *bb,
21759 const ptrdiff_t *ldbb,
21760 double *w,
21761 double *z,
21762 const ptrdiff_t *ldz,
21763 double *work,
21764 const ptrdiff_t *lwork,
21765 double *rwork,
21766 const ptrdiff_t *lrwork,
21767 ptrdiff_t *iwork,
21768 const ptrdiff_t *liwork,
21769 ptrdiff_t *info
21770);
21771
21772/* Source: zhbgvx.f */
21773#define zhbgvx FORTRAN_WRAPPER(zhbgvx)
21774extern void zhbgvx(
21775 const char *jobz,
21776 const char *range,
21777 const char *uplo,
21778 const ptrdiff_t *n,
21779 const ptrdiff_t *ka,
21780 const ptrdiff_t *kb,
21781 double *ab,
21782 const ptrdiff_t *ldab,
21783 double *bb,
21784 const ptrdiff_t *ldbb,
21785 double *q,
21786 const ptrdiff_t *ldq,
21787 const double *vl,
21788 const double *vu,
21789 const ptrdiff_t *il,
21790 const ptrdiff_t *iu,
21791 const double *abstol,
21792 ptrdiff_t *m,
21793 double *w,
21794 double *z,
21795 const ptrdiff_t *ldz,
21796 double *work,
21797 double *rwork,
21798 ptrdiff_t *iwork,
21799 ptrdiff_t *ifail,
21800 ptrdiff_t *info
21801);
21802
21803/* Source: zhbtrd.f */
21804#define zhbtrd FORTRAN_WRAPPER(zhbtrd)
21805extern void zhbtrd(
21806 const char *vect,
21807 const char *uplo,
21808 const ptrdiff_t *n,
21809 const ptrdiff_t *kd,
21810 double *ab,
21811 const ptrdiff_t *ldab,
21812 double *d,
21813 double *e,
21814 double *q,
21815 const ptrdiff_t *ldq,
21816 double *work,
21817 ptrdiff_t *info
21818);
21819
21820/* Source: zhecon.f */
21821#define zhecon FORTRAN_WRAPPER(zhecon)
21822extern void zhecon(
21823 const char *uplo,
21824 const ptrdiff_t *n,
21825 const double *a,
21826 const ptrdiff_t *lda,
21827 const ptrdiff_t *ipiv,
21828 const double *anorm,
21829 double *rcond,
21830 double *work,
21831 ptrdiff_t *info
21832);
21833
21834/* Source: zhecon_rook.f */
21835#define zhecon_rook FORTRAN_WRAPPER(zhecon_rook)
21836extern void zhecon_rook(
21837 const char *uplo,
21838 const ptrdiff_t *n,
21839 const double *a,
21840 const ptrdiff_t *lda,
21841 const ptrdiff_t *ipiv,
21842 const double *anorm,
21843 double *rcond,
21844 double *work,
21845 ptrdiff_t *info
21846);
21847
21848/* Source: zheequb.f */
21849#define zheequb FORTRAN_WRAPPER(zheequb)
21850extern void zheequb(
21851 char *uplo,
21852 const ptrdiff_t *n,
21853 const double *a,
21854 const ptrdiff_t *lda,
21855 double *s,
21856 double *scond,
21857 double *amax,
21858 double *work,
21859 ptrdiff_t *info
21860);
21861
21862/* Source: zheev.f */
21863#define zheev FORTRAN_WRAPPER(zheev)
21864extern void zheev(
21865 const char *jobz,
21866 const char *uplo,
21867 const ptrdiff_t *n,
21868 double *a,
21869 const ptrdiff_t *lda,
21870 double *w,
21871 double *work,
21872 const ptrdiff_t *lwork,
21873 double *rwork,
21874 ptrdiff_t *info
21875);
21876
21877/* Source: zheevd.f */
21878#define zheevd FORTRAN_WRAPPER(zheevd)
21879extern void zheevd(
21880 const char *jobz,
21881 const char *uplo,
21882 const ptrdiff_t *n,
21883 double *a,
21884 const ptrdiff_t *lda,
21885 double *w,
21886 double *work,
21887 const ptrdiff_t *lwork,
21888 double *rwork,
21889 const ptrdiff_t *lrwork,
21890 ptrdiff_t *iwork,
21891 const ptrdiff_t *liwork,
21892 ptrdiff_t *info
21893);
21894
21895/* Source: zheevr.f */
21896#define zheevr FORTRAN_WRAPPER(zheevr)
21897extern void zheevr(
21898 const char *jobz,
21899 const char *range,
21900 const char *uplo,
21901 const ptrdiff_t *n,
21902 double *a,
21903 const ptrdiff_t *lda,
21904 const double *vl,
21905 const double *vu,
21906 const ptrdiff_t *il,
21907 const ptrdiff_t *iu,
21908 const double *abstol,
21909 ptrdiff_t *m,
21910 double *w,
21911 double *z,
21912 const ptrdiff_t *ldz,
21913 ptrdiff_t *isuppz,
21914 double *work,
21915 const ptrdiff_t *lwork,
21916 double *rwork,
21917 const ptrdiff_t *lrwork,
21918 ptrdiff_t *iwork,
21919 const ptrdiff_t *liwork,
21920 ptrdiff_t *info
21921);
21922
21923/* Source: zheevx.f */
21924#define zheevx FORTRAN_WRAPPER(zheevx)
21925extern void zheevx(
21926 const char *jobz,
21927 const char *range,
21928 const char *uplo,
21929 const ptrdiff_t *n,
21930 double *a,
21931 const ptrdiff_t *lda,
21932 const double *vl,
21933 const double *vu,
21934 const ptrdiff_t *il,
21935 const ptrdiff_t *iu,
21936 const double *abstol,
21937 ptrdiff_t *m,
21938 double *w,
21939 double *z,
21940 const ptrdiff_t *ldz,
21941 double *work,
21942 const ptrdiff_t *lwork,
21943 double *rwork,
21944 ptrdiff_t *iwork,
21945 ptrdiff_t *ifail,
21946 ptrdiff_t *info
21947);
21948
21949/* Source: zhegs2.f */
21950#define zhegs2 FORTRAN_WRAPPER(zhegs2)
21951extern void zhegs2(
21952 const ptrdiff_t *itype,
21953 const char *uplo,
21954 const ptrdiff_t *n,
21955 double *a,
21956 const ptrdiff_t *lda,
21957 const double *b,
21958 const ptrdiff_t *ldb,
21959 ptrdiff_t *info
21960);
21961
21962/* Source: zhegst.f */
21963#define zhegst FORTRAN_WRAPPER(zhegst)
21964extern void zhegst(
21965 const ptrdiff_t *itype,
21966 const char *uplo,
21967 const ptrdiff_t *n,
21968 double *a,
21969 const ptrdiff_t *lda,
21970 const double *b,
21971 const ptrdiff_t *ldb,
21972 ptrdiff_t *info
21973);
21974
21975/* Source: zhegv.f */
21976#define zhegv FORTRAN_WRAPPER(zhegv)
21977extern void zhegv(
21978 const ptrdiff_t *itype,
21979 const char *jobz,
21980 const char *uplo,
21981 const ptrdiff_t *n,
21982 double *a,
21983 const ptrdiff_t *lda,
21984 double *b,
21985 const ptrdiff_t *ldb,
21986 double *w,
21987 double *work,
21988 const ptrdiff_t *lwork,
21989 double *rwork,
21990 ptrdiff_t *info
21991);
21992
21993/* Source: zhegvd.f */
21994#define zhegvd FORTRAN_WRAPPER(zhegvd)
21995extern void zhegvd(
21996 const ptrdiff_t *itype,
21997 const char *jobz,
21998 const char *uplo,
21999 const ptrdiff_t *n,
22000 double *a,
22001 const ptrdiff_t *lda,
22002 double *b,
22003 const ptrdiff_t *ldb,
22004 double *w,
22005 double *work,
22006 const ptrdiff_t *lwork,
22007 double *rwork,
22008 const ptrdiff_t *lrwork,
22009 ptrdiff_t *iwork,
22010 const ptrdiff_t *liwork,
22011 ptrdiff_t *info
22012);
22013
22014/* Source: zhegvx.f */
22015#define zhegvx FORTRAN_WRAPPER(zhegvx)
22016extern void zhegvx(
22017 const ptrdiff_t *itype,
22018 const char *jobz,
22019 const char *range,
22020 const char *uplo,
22021 const ptrdiff_t *n,
22022 double *a,
22023 const ptrdiff_t *lda,
22024 double *b,
22025 const ptrdiff_t *ldb,
22026 const double *vl,
22027 const double *vu,
22028 const ptrdiff_t *il,
22029 const ptrdiff_t *iu,
22030 const double *abstol,
22031 ptrdiff_t *m,
22032 double *w,
22033 double *z,
22034 const ptrdiff_t *ldz,
22035 double *work,
22036 const ptrdiff_t *lwork,
22037 double *rwork,
22038 ptrdiff_t *iwork,
22039 ptrdiff_t *ifail,
22040 ptrdiff_t *info
22041);
22042
22043/* Source: zherfs.f */
22044#define zherfs FORTRAN_WRAPPER(zherfs)
22045extern void zherfs(
22046 const char *uplo,
22047 const ptrdiff_t *n,
22048 const ptrdiff_t *nrhs,
22049 const double *a,
22050 const ptrdiff_t *lda,
22051 const double *af,
22052 const ptrdiff_t *ldaf,
22053 const ptrdiff_t *ipiv,
22054 const double *b,
22055 const ptrdiff_t *ldb,
22056 double *x,
22057 const ptrdiff_t *ldx,
22058 double *ferr,
22059 double *berr,
22060 double *work,
22061 double *rwork,
22062 ptrdiff_t *info
22063);
22064
22065/* Source: zhesv.f */
22066#define zhesv FORTRAN_WRAPPER(zhesv)
22067extern void zhesv(
22068 const char *uplo,
22069 const ptrdiff_t *n,
22070 const ptrdiff_t *nrhs,
22071 double *a,
22072 const ptrdiff_t *lda,
22073 ptrdiff_t *ipiv,
22074 double *b,
22075 const ptrdiff_t *ldb,
22076 double *work,
22077 const ptrdiff_t *lwork,
22078 ptrdiff_t *info
22079);
22080
22081/* Source: zhesv_rook.f */
22082#define zhesv_rook FORTRAN_WRAPPER(zhesv_rook)
22083extern void zhesv_rook(
22084 const char *uplo,
22085 const ptrdiff_t *n,
22086 const ptrdiff_t *nrhs,
22087 double *a,
22088 const ptrdiff_t *lda,
22089 ptrdiff_t *ipiv,
22090 double *b,
22091 const ptrdiff_t *ldb,
22092 double *work,
22093 const ptrdiff_t *lwork,
22094 ptrdiff_t *info
22095);
22096
22097/* Source: zhesvx.f */
22098#define zhesvx FORTRAN_WRAPPER(zhesvx)
22099extern void zhesvx(
22100 const char *fact,
22101 const char *uplo,
22102 const ptrdiff_t *n,
22103 const ptrdiff_t *nrhs,
22104 const double *a,
22105 const ptrdiff_t *lda,
22106 double *af,
22107 const ptrdiff_t *ldaf,
22108 ptrdiff_t *ipiv,
22109 const double *b,
22110 const ptrdiff_t *ldb,
22111 double *x,
22112 const ptrdiff_t *ldx,
22113 double *rcond,
22114 double *ferr,
22115 double *berr,
22116 double *work,
22117 const ptrdiff_t *lwork,
22118 double *rwork,
22119 ptrdiff_t *info
22120);
22121
22122/* Source: zheswapr.f */
22123#define zheswapr FORTRAN_WRAPPER(zheswapr)
22124extern void zheswapr(
22125 const char *uplo,
22126 const ptrdiff_t *n,
22127 double *a,
22128 const ptrdiff_t *lda,
22129 const ptrdiff_t *i1,
22130 const ptrdiff_t *i2
22131);
22132
22133/* Source: zhetd2.f */
22134#define zhetd2 FORTRAN_WRAPPER(zhetd2)
22135extern void zhetd2(
22136 const char *uplo,
22137 const ptrdiff_t *n,
22138 double *a,
22139 const ptrdiff_t *lda,
22140 double *d,
22141 double *e,
22142 double *tau,
22143 ptrdiff_t *info
22144);
22145
22146/* Source: zhetf2.f */
22147#define zhetf2 FORTRAN_WRAPPER(zhetf2)
22148extern void zhetf2(
22149 const char *uplo,
22150 const ptrdiff_t *n,
22151 double *a,
22152 const ptrdiff_t *lda,
22153 ptrdiff_t *ipiv,
22154 ptrdiff_t *info
22155);
22156
22157/* Source: zhetf2_rook.f */
22158#define zhetf2_rook FORTRAN_WRAPPER(zhetf2_rook)
22159extern void zhetf2_rook(
22160 const char *uplo,
22161 const ptrdiff_t *n,
22162 double *a,
22163 const ptrdiff_t *lda,
22164 ptrdiff_t *ipiv,
22165 ptrdiff_t *info
22166);
22167
22168/* Source: zhetrd.f */
22169#define zhetrd FORTRAN_WRAPPER(zhetrd)
22170extern void zhetrd(
22171 const char *uplo,
22172 const ptrdiff_t *n,
22173 double *a,
22174 const ptrdiff_t *lda,
22175 double *d,
22176 double *e,
22177 double *tau,
22178 double *work,
22179 const ptrdiff_t *lwork,
22180 ptrdiff_t *info
22181);
22182
22183/* Source: zhetrf.f */
22184#define zhetrf FORTRAN_WRAPPER(zhetrf)
22185extern void zhetrf(
22186 const char *uplo,
22187 const ptrdiff_t *n,
22188 double *a,
22189 const ptrdiff_t *lda,
22190 ptrdiff_t *ipiv,
22191 double *work,
22192 const ptrdiff_t *lwork,
22193 ptrdiff_t *info
22194);
22195
22196/* Source: zhetrf_rook.f */
22197#define zhetrf_rook FORTRAN_WRAPPER(zhetrf_rook)
22198extern void zhetrf_rook(
22199 const char *uplo,
22200 const ptrdiff_t *n,
22201 double *a,
22202 const ptrdiff_t *lda,
22203 ptrdiff_t *ipiv,
22204 double *work,
22205 const ptrdiff_t *lwork,
22206 ptrdiff_t *info
22207);
22208
22209/* Source: zhetri.f */
22210#define zhetri FORTRAN_WRAPPER(zhetri)
22211extern void zhetri(
22212 const char *uplo,
22213 const ptrdiff_t *n,
22214 double *a,
22215 const ptrdiff_t *lda,
22216 const ptrdiff_t *ipiv,
22217 double *work,
22218 ptrdiff_t *info
22219);
22220
22221/* Source: zhetri2.f */
22222#define zhetri2 FORTRAN_WRAPPER(zhetri2)
22223extern void zhetri2(
22224 const char *uplo,
22225 const ptrdiff_t *n,
22226 double *a,
22227 const ptrdiff_t *lda,
22228 const ptrdiff_t *ipiv,
22229 double *work,
22230 const ptrdiff_t *lwork,
22231 ptrdiff_t *info
22232);
22233
22234/* Source: zhetri2x.f */
22235#define zhetri2x FORTRAN_WRAPPER(zhetri2x)
22236extern void zhetri2x(
22237 const char *uplo,
22238 const ptrdiff_t *n,
22239 double *a,
22240 const ptrdiff_t *lda,
22241 const ptrdiff_t *ipiv,
22242 double *work,
22243 const ptrdiff_t *nb,
22244 ptrdiff_t *info
22245);
22246
22247/* Source: zhetri_rook.f */
22248#define zhetri_rook FORTRAN_WRAPPER(zhetri_rook)
22249extern void zhetri_rook(
22250 const char *uplo,
22251 const ptrdiff_t *n,
22252 double *a,
22253 const ptrdiff_t *lda,
22254 const ptrdiff_t *ipiv,
22255 double *work,
22256 ptrdiff_t *info
22257);
22258
22259/* Source: zhetrs.f */
22260#define zhetrs FORTRAN_WRAPPER(zhetrs)
22261extern void zhetrs(
22262 const char *uplo,
22263 const ptrdiff_t *n,
22264 const ptrdiff_t *nrhs,
22265 const double *a,
22266 const ptrdiff_t *lda,
22267 const ptrdiff_t *ipiv,
22268 double *b,
22269 const ptrdiff_t *ldb,
22270 ptrdiff_t *info
22271);
22272
22273/* Source: zhetrs2.f */
22274#define zhetrs2 FORTRAN_WRAPPER(zhetrs2)
22275extern void zhetrs2(
22276 const char *uplo,
22277 const ptrdiff_t *n,
22278 const ptrdiff_t *nrhs,
22279 const double *a,
22280 const ptrdiff_t *lda,
22281 const ptrdiff_t *ipiv,
22282 double *b,
22283 const ptrdiff_t *ldb,
22284 double *work,
22285 ptrdiff_t *info
22286);
22287
22288/* Source: zhetrs_rook.f */
22289#define zhetrs_rook FORTRAN_WRAPPER(zhetrs_rook)
22290extern void zhetrs_rook(
22291 const char *uplo,
22292 const ptrdiff_t *n,
22293 const ptrdiff_t *nrhs,
22294 const double *a,
22295 const ptrdiff_t *lda,
22296 const ptrdiff_t *ipiv,
22297 double *b,
22298 const ptrdiff_t *ldb,
22299 ptrdiff_t *info
22300);
22301
22302/* Source: zhfrk.f */
22303#define zhfrk FORTRAN_WRAPPER(zhfrk)
22304extern void zhfrk(
22305 const char *transr,
22306 const char *uplo,
22307 const char *trans,
22308 const ptrdiff_t *n,
22309 const ptrdiff_t *k,
22310 const double *alpha,
22311 const double *a,
22312 const ptrdiff_t *lda,
22313 const double *beta,
22314 double *c
22315);
22316
22317/* Source: zhgeqz.f */
22318#define zhgeqz FORTRAN_WRAPPER(zhgeqz)
22319extern void zhgeqz(
22320 const char *job,
22321 const char *compq,
22322 const char *compz,
22323 const ptrdiff_t *n,
22324 const ptrdiff_t *ilo,
22325 const ptrdiff_t *ihi,
22326 double *h,
22327 const ptrdiff_t *ldh,
22328 double *t,
22329 const ptrdiff_t *ldt,
22330 double *alpha,
22331 double *beta,
22332 double *q,
22333 const ptrdiff_t *ldq,
22334 double *z,
22335 const ptrdiff_t *ldz,
22336 double *work,
22337 const ptrdiff_t *lwork,
22338 double *rwork,
22339 ptrdiff_t *info
22340);
22341
22342/* Source: zhpcon.f */
22343#define zhpcon FORTRAN_WRAPPER(zhpcon)
22344extern void zhpcon(
22345 const char *uplo,
22346 const ptrdiff_t *n,
22347 const double *ap,
22348 const ptrdiff_t *ipiv,
22349 const double *anorm,
22350 double *rcond,
22351 double *work,
22352 ptrdiff_t *info
22353);
22354
22355/* Source: zhpev.f */
22356#define zhpev FORTRAN_WRAPPER(zhpev)
22357extern void zhpev(
22358 const char *jobz,
22359 const char *uplo,
22360 const ptrdiff_t *n,
22361 double *ap,
22362 double *w,
22363 double *z,
22364 const ptrdiff_t *ldz,
22365 double *work,
22366 double *rwork,
22367 ptrdiff_t *info
22368);
22369
22370/* Source: zhpevd.f */
22371#define zhpevd FORTRAN_WRAPPER(zhpevd)
22372extern void zhpevd(
22373 const char *jobz,
22374 const char *uplo,
22375 const ptrdiff_t *n,
22376 double *ap,
22377 double *w,
22378 double *z,
22379 const ptrdiff_t *ldz,
22380 double *work,
22381 const ptrdiff_t *lwork,
22382 double *rwork,
22383 const ptrdiff_t *lrwork,
22384 ptrdiff_t *iwork,
22385 const ptrdiff_t *liwork,
22386 ptrdiff_t *info
22387);
22388
22389/* Source: zhpevx.f */
22390#define zhpevx FORTRAN_WRAPPER(zhpevx)
22391extern void zhpevx(
22392 const char *jobz,
22393 const char *range,
22394 const char *uplo,
22395 const ptrdiff_t *n,
22396 double *ap,
22397 const double *vl,
22398 const double *vu,
22399 const ptrdiff_t *il,
22400 const ptrdiff_t *iu,
22401 const double *abstol,
22402 ptrdiff_t *m,
22403 double *w,
22404 double *z,
22405 const ptrdiff_t *ldz,
22406 double *work,
22407 double *rwork,
22408 ptrdiff_t *iwork,
22409 ptrdiff_t *ifail,
22410 ptrdiff_t *info
22411);
22412
22413/* Source: zhpgst.f */
22414#define zhpgst FORTRAN_WRAPPER(zhpgst)
22415extern void zhpgst(
22416 const ptrdiff_t *itype,
22417 const char *uplo,
22418 const ptrdiff_t *n,
22419 double *ap,
22420 const double *bp,
22421 ptrdiff_t *info
22422);
22423
22424/* Source: zhpgv.f */
22425#define zhpgv FORTRAN_WRAPPER(zhpgv)
22426extern void zhpgv(
22427 const ptrdiff_t *itype,
22428 const char *jobz,
22429 const char *uplo,
22430 const ptrdiff_t *n,
22431 double *ap,
22432 double *bp,
22433 double *w,
22434 double *z,
22435 const ptrdiff_t *ldz,
22436 double *work,
22437 double *rwork,
22438 ptrdiff_t *info
22439);
22440
22441/* Source: zhpgvd.f */
22442#define zhpgvd FORTRAN_WRAPPER(zhpgvd)
22443extern void zhpgvd(
22444 const ptrdiff_t *itype,
22445 const char *jobz,
22446 const char *uplo,
22447 const ptrdiff_t *n,
22448 double *ap,
22449 double *bp,
22450 double *w,
22451 double *z,
22452 const ptrdiff_t *ldz,
22453 double *work,
22454 const ptrdiff_t *lwork,
22455 double *rwork,
22456 const ptrdiff_t *lrwork,
22457 ptrdiff_t *iwork,
22458 const ptrdiff_t *liwork,
22459 ptrdiff_t *info
22460);
22461
22462/* Source: zhpgvx.f */
22463#define zhpgvx FORTRAN_WRAPPER(zhpgvx)
22464extern void zhpgvx(
22465 const ptrdiff_t *itype,
22466 const char *jobz,
22467 const char *range,
22468 const char *uplo,
22469 const ptrdiff_t *n,
22470 double *ap,
22471 double *bp,
22472 const double *vl,
22473 const double *vu,
22474 const ptrdiff_t *il,
22475 const ptrdiff_t *iu,
22476 const double *abstol,
22477 ptrdiff_t *m,
22478 double *w,
22479 double *z,
22480 const ptrdiff_t *ldz,
22481 double *work,
22482 double *rwork,
22483 ptrdiff_t *iwork,
22484 ptrdiff_t *ifail,
22485 ptrdiff_t *info
22486);
22487
22488/* Source: zhprfs.f */
22489#define zhprfs FORTRAN_WRAPPER(zhprfs)
22490extern void zhprfs(
22491 const char *uplo,
22492 const ptrdiff_t *n,
22493 const ptrdiff_t *nrhs,
22494 const double *ap,
22495 const double *afp,
22496 const ptrdiff_t *ipiv,
22497 const double *b,
22498 const ptrdiff_t *ldb,
22499 double *x,
22500 const ptrdiff_t *ldx,
22501 double *ferr,
22502 double *berr,
22503 double *work,
22504 double *rwork,
22505 ptrdiff_t *info
22506);
22507
22508/* Source: zhpsv.f */
22509#define zhpsv FORTRAN_WRAPPER(zhpsv)
22510extern void zhpsv(
22511 const char *uplo,
22512 const ptrdiff_t *n,
22513 const ptrdiff_t *nrhs,
22514 double *ap,
22515 ptrdiff_t *ipiv,
22516 double *b,
22517 const ptrdiff_t *ldb,
22518 ptrdiff_t *info
22519);
22520
22521/* Source: zhpsvx.f */
22522#define zhpsvx FORTRAN_WRAPPER(zhpsvx)
22523extern void zhpsvx(
22524 const char *fact,
22525 const char *uplo,
22526 const ptrdiff_t *n,
22527 const ptrdiff_t *nrhs,
22528 const double *ap,
22529 double *afp,
22530 ptrdiff_t *ipiv,
22531 const double *b,
22532 const ptrdiff_t *ldb,
22533 double *x,
22534 const ptrdiff_t *ldx,
22535 double *rcond,
22536 double *ferr,
22537 double *berr,
22538 double *work,
22539 double *rwork,
22540 ptrdiff_t *info
22541);
22542
22543/* Source: zhptrd.f */
22544#define zhptrd FORTRAN_WRAPPER(zhptrd)
22545extern void zhptrd(
22546 const char *uplo,
22547 const ptrdiff_t *n,
22548 double *ap,
22549 double *d,
22550 double *e,
22551 double *tau,
22552 ptrdiff_t *info
22553);
22554
22555/* Source: zhptrf.f */
22556#define zhptrf FORTRAN_WRAPPER(zhptrf)
22557extern void zhptrf(
22558 const char *uplo,
22559 const ptrdiff_t *n,
22560 double *ap,
22561 ptrdiff_t *ipiv,
22562 ptrdiff_t *info
22563);
22564
22565/* Source: zhptri.f */
22566#define zhptri FORTRAN_WRAPPER(zhptri)
22567extern void zhptri(
22568 const char *uplo,
22569 const ptrdiff_t *n,
22570 double *ap,
22571 const ptrdiff_t *ipiv,
22572 double *work,
22573 ptrdiff_t *info
22574);
22575
22576/* Source: zhptrs.f */
22577#define zhptrs FORTRAN_WRAPPER(zhptrs)
22578extern void zhptrs(
22579 const char *uplo,
22580 const ptrdiff_t *n,
22581 const ptrdiff_t *nrhs,
22582 const double *ap,
22583 const ptrdiff_t *ipiv,
22584 double *b,
22585 const ptrdiff_t *ldb,
22586 ptrdiff_t *info
22587);
22588
22589/* Source: zhsein.f */
22590#define zhsein FORTRAN_WRAPPER(zhsein)
22591extern void zhsein(
22592 const char *side,
22593 const char *eigsrc,
22594 const char *initv,
22595 const ptrdiff_t *select,
22596 const ptrdiff_t *n,
22597 const double *h,
22598 const ptrdiff_t *ldh,
22599 double *w,
22600 double *vl,
22601 const ptrdiff_t *ldvl,
22602 double *vr,
22603 const ptrdiff_t *ldvr,
22604 const ptrdiff_t *mm,
22605 ptrdiff_t *m,
22606 double *work,
22607 double *rwork,
22608 ptrdiff_t *ifaill,
22609 ptrdiff_t *ifailr,
22610 ptrdiff_t *info
22611);
22612
22613/* Source: zhseqr.f */
22614#define zhseqr FORTRAN_WRAPPER(zhseqr)
22615extern void zhseqr(
22616 const char *job,
22617 const char *compz,
22618 const ptrdiff_t *n,
22619 const ptrdiff_t *ilo,
22620 const ptrdiff_t *ihi,
22621 double *h,
22622 const ptrdiff_t *ldh,
22623 double *w,
22624 double *z,
22625 const ptrdiff_t *ldz,
22626 double *work,
22627 const ptrdiff_t *lwork,
22628 ptrdiff_t *info
22629);
22630
22631/* Source: zlabrd.f */
22632#define zlabrd FORTRAN_WRAPPER(zlabrd)
22633extern void zlabrd(
22634 const ptrdiff_t *m,
22635 const ptrdiff_t *n,
22636 const ptrdiff_t *nb,
22637 double *a,
22638 const ptrdiff_t *lda,
22639 double *d,
22640 double *e,
22641 double *tauq,
22642 double *taup,
22643 double *x,
22644 const ptrdiff_t *ldx,
22645 double *y,
22646 const ptrdiff_t *ldy
22647);
22648
22649/* Source: zlacgv.f */
22650#define zlacgv FORTRAN_WRAPPER(zlacgv)
22651extern void zlacgv(
22652 const ptrdiff_t *n,
22653 double *x,
22654 const ptrdiff_t *incx
22655);
22656
22657/* Source: zlacn2.f */
22658#define zlacn2 FORTRAN_WRAPPER(zlacn2)
22659extern void zlacn2(
22660 const ptrdiff_t *n,
22661 double *v,
22662 double *x,
22663 double *est,
22664 ptrdiff_t *kase,
22665 ptrdiff_t *isave
22666);
22667
22668/* Source: zlacon.f */
22669#define zlacon FORTRAN_WRAPPER(zlacon)
22670extern void zlacon(
22671 const ptrdiff_t *n,
22672 double *v,
22673 double *x,
22674 double *est,
22675 ptrdiff_t *kase
22676);
22677
22678/* Source: zlacp2.f */
22679#define zlacp2 FORTRAN_WRAPPER(zlacp2)
22680extern void zlacp2(
22681 const char *uplo,
22682 const ptrdiff_t *m,
22683 const ptrdiff_t *n,
22684 const double *a,
22685 const ptrdiff_t *lda,
22686 double *b,
22687 const ptrdiff_t *ldb
22688);
22689
22690/* Source: zlacpy.f */
22691#define zlacpy FORTRAN_WRAPPER(zlacpy)
22692extern void zlacpy(
22693 const char *uplo,
22694 const ptrdiff_t *m,
22695 const ptrdiff_t *n,
22696 const double *a,
22697 const ptrdiff_t *lda,
22698 double *b,
22699 const ptrdiff_t *ldb
22700);
22701
22702/* Source: zlacrm.f */
22703#define zlacrm FORTRAN_WRAPPER(zlacrm)
22704extern void zlacrm(
22705 const ptrdiff_t *m,
22706 const ptrdiff_t *n,
22707 const double *a,
22708 const ptrdiff_t *lda,
22709 const double *b,
22710 const ptrdiff_t *ldb,
22711 const double *c,
22712 const ptrdiff_t *ldc,
22713 double *rwork
22714);
22715
22716/* Source: zlacrt.f */
22717#define zlacrt FORTRAN_WRAPPER(zlacrt)
22718extern void zlacrt(
22719 const ptrdiff_t *n,
22720 double *cx,
22721 const ptrdiff_t *incx,
22722 double *cy,
22723 const ptrdiff_t *incy,
22724 const double *c,
22725 const double *s
22726);
22727
22728/* Source: zladiv.f */
22729#define zladiv FORTRAN_WRAPPER(zladiv)
22730#ifndef FORTRAN_COMPLEX_FUNCTIONS_RETURN_VOID
22731extern doublecomplex zladiv(
22732#else
22733extern void zladiv(
22734 doublecomplex* retval,
22735#endif
22736 const double *x,
22737 const double *y
22738);
22739
22740/* Source: zlaed0.f */
22741#define zlaed0 FORTRAN_WRAPPER(zlaed0)
22742extern void zlaed0(
22743 const ptrdiff_t *qsiz,
22744 const ptrdiff_t *n,
22745 double *d,
22746 double *e,
22747 double *q,
22748 const ptrdiff_t *ldq,
22749 double *qstore,
22750 const ptrdiff_t *ldqs,
22751 double *rwork,
22752 ptrdiff_t *iwork,
22753 ptrdiff_t *info
22754);
22755
22756/* Source: zlaed7.f */
22757#define zlaed7 FORTRAN_WRAPPER(zlaed7)
22758extern void zlaed7(
22759 const ptrdiff_t *n,
22760 const ptrdiff_t *cutpnt,
22761 const ptrdiff_t *qsiz,
22762 const ptrdiff_t *tlvls,
22763 const ptrdiff_t *curlvl,
22764 const ptrdiff_t *curpbm,
22765 double *d,
22766 double *q,
22767 const ptrdiff_t *ldq,
22768 const double *rho,
22769 ptrdiff_t *indxq,
22770 double *qstore,
22771 ptrdiff_t *qptr,
22772 const ptrdiff_t *prmptr,
22773 const ptrdiff_t *perm,
22774 const ptrdiff_t *givptr,
22775 const ptrdiff_t *givcol,
22776 const double *givnum,
22777 double *work,
22778 double *rwork,
22779 ptrdiff_t *iwork,
22780 ptrdiff_t *info
22781);
22782
22783/* Source: zlaed8.f */
22784#define zlaed8 FORTRAN_WRAPPER(zlaed8)
22785extern void zlaed8(
22786 ptrdiff_t *k,
22787 const ptrdiff_t *n,
22788 const ptrdiff_t *qsiz,
22789 double *q,
22790 const ptrdiff_t *ldq,
22791 double *d,
22792 double *rho,
22793 const ptrdiff_t *cutpnt,
22794 const double *z,
22795 double *dlamda,
22796 double *q2,
22797 const ptrdiff_t *ldq2,
22798 double *w,
22799 ptrdiff_t *indxp,
22800 ptrdiff_t *indx,
22801 const ptrdiff_t *indxq,
22802 ptrdiff_t *perm,
22803 ptrdiff_t *givptr,
22804 ptrdiff_t *givcol,
22805 double *givnum,
22806 ptrdiff_t *info
22807);
22808
22809/* Source: zlaein.f */
22810#define zlaein FORTRAN_WRAPPER(zlaein)
22811extern void zlaein(
22812 const ptrdiff_t *rightv,
22813 const ptrdiff_t *noinit,
22814 const ptrdiff_t *n,
22815 const double *h,
22816 const ptrdiff_t *ldh,
22817 const double *w,
22818 double *v,
22819 double *b,
22820 const ptrdiff_t *ldb,
22821 double *rwork,
22822 const double *eps3,
22823 const double *smlnum,
22824 ptrdiff_t *info
22825);
22826
22827/* Source: zlaesy.f */
22828#define zlaesy FORTRAN_WRAPPER(zlaesy)
22829extern void zlaesy(
22830 const double *a,
22831 const double *b,
22832 const double *c,
22833 double *rt1,
22834 double *rt2,
22835 double *evscal,
22836 double *cs1,
22837 double *sn1
22838);
22839
22840/* Source: zlaev2.f */
22841#define zlaev2 FORTRAN_WRAPPER(zlaev2)
22842extern void zlaev2(
22843 const double *a,
22844 const double *b,
22845 const double *c,
22846 double *rt1,
22847 double *rt2,
22848 double *cs1,
22849 double *sn1
22850);
22851
22852/* Source: zlag2c.f */
22853#define zlag2c FORTRAN_WRAPPER(zlag2c)
22854extern void zlag2c(
22855 const ptrdiff_t *m,
22856 const ptrdiff_t *n,
22857 const double *a,
22858 const ptrdiff_t *lda,
22859 float *sa,
22860 const ptrdiff_t *ldsa,
22861 ptrdiff_t *info
22862);
22863
22864/* Source: zlags2.f */
22865#define zlags2 FORTRAN_WRAPPER(zlags2)
22866extern void zlags2(
22867 const ptrdiff_t *upper,
22868 const double *a1,
22869 const double *a2,
22870 const double *a3,
22871 const double *b1,
22872 const double *b2,
22873 const double *b3,
22874 double *csu,
22875 double *snu,
22876 double *csv,
22877 double *snv,
22878 double *csq,
22879 double *snq
22880);
22881
22882/* Source: zlagtm.f */
22883#define zlagtm FORTRAN_WRAPPER(zlagtm)
22884extern void zlagtm(
22885 const char *trans,
22886 const ptrdiff_t *n,
22887 const ptrdiff_t *nrhs,
22888 const double *alpha,
22889 const double *dl,
22890 const double *d,
22891 const double *du,
22892 const double *x,
22893 const ptrdiff_t *ldx,
22894 const double *beta,
22895 double *b,
22896 const ptrdiff_t *ldb
22897);
22898
22899/* Source: zlahef.f */
22900#define zlahef FORTRAN_WRAPPER(zlahef)
22901extern void zlahef(
22902 const char *uplo,
22903 const ptrdiff_t *n,
22904 const ptrdiff_t *nb,
22905 ptrdiff_t *kb,
22906 double *a,
22907 const ptrdiff_t *lda,
22908 ptrdiff_t *ipiv,
22909 double *w,
22910 const ptrdiff_t *ldw,
22911 ptrdiff_t *info
22912);
22913
22914/* Source: zlahef_rook.f */
22915#define zlahef_rook FORTRAN_WRAPPER(zlahef_rook)
22916extern void zlahef_rook(
22917 const char *uplo,
22918 const ptrdiff_t *n,
22919 const ptrdiff_t *nb,
22920 ptrdiff_t *kb,
22921 double *a,
22922 const ptrdiff_t *lda,
22923 ptrdiff_t *ipiv,
22924 double *w,
22925 const ptrdiff_t *ldw,
22926 ptrdiff_t *info
22927);
22928
22929/* Source: zlahqr.f */
22930#define zlahqr FORTRAN_WRAPPER(zlahqr)
22931extern void zlahqr(
22932 const ptrdiff_t *wantt,
22933 const ptrdiff_t *wantz,
22934 const ptrdiff_t *n,
22935 const ptrdiff_t *ilo,
22936 const ptrdiff_t *ihi,
22937 double *h,
22938 const ptrdiff_t *ldh,
22939 double *w,
22940 const ptrdiff_t *iloz,
22941 const ptrdiff_t *ihiz,
22942 double *z,
22943 const ptrdiff_t *ldz,
22944 ptrdiff_t *info
22945);
22946
22947/* Source: zlahr2.f */
22948#define zlahr2 FORTRAN_WRAPPER(zlahr2)
22949extern void zlahr2(
22950 const ptrdiff_t *n,
22951 const ptrdiff_t *k,
22952 const ptrdiff_t *nb,
22953 double *a,
22954 const ptrdiff_t *lda,
22955 double *tau,
22956 double *t,
22957 const ptrdiff_t *ldt,
22958 double *y,
22959 const ptrdiff_t *ldy
22960);
22961
22962/* Source: zlahrd.f */
22963#define zlahrd FORTRAN_WRAPPER(zlahrd)
22964extern void zlahrd(
22965 const ptrdiff_t *n,
22966 const ptrdiff_t *k,
22967 const ptrdiff_t *nb,
22968 double *a,
22969 const ptrdiff_t *lda,
22970 double *tau,
22971 double *t,
22972 const ptrdiff_t *ldt,
22973 double *y,
22974 const ptrdiff_t *ldy
22975);
22976
22977/* Source: zlaic1.f */
22978#define zlaic1 FORTRAN_WRAPPER(zlaic1)
22979extern void zlaic1(
22980 const ptrdiff_t *job,
22981 const ptrdiff_t *j,
22982 const double *x,
22983 const double *sest,
22984 const double *w,
22985 const double *gamma_,
22986 double *sestpr,
22987 double *s,
22988 double *c
22989);
22990
22991/* Source: zlals0.f */
22992#define zlals0 FORTRAN_WRAPPER(zlals0)
22993extern void zlals0(
22994 const ptrdiff_t *icompq,
22995 const ptrdiff_t *nl,
22996 const ptrdiff_t *nr,
22997 const ptrdiff_t *sqre,
22998 const ptrdiff_t *nrhs,
22999 double *b,
23000 const ptrdiff_t *ldb,
23001 double *bx,
23002 const ptrdiff_t *ldbx,
23003 const ptrdiff_t *perm,
23004 const ptrdiff_t *givptr,
23005 const ptrdiff_t *givcol,
23006 const ptrdiff_t *ldgcol,
23007 const double *givnum,
23008 const ptrdiff_t *ldgnum,
23009 const double *poles,
23010 const double *difl,
23011 const double *difr,
23012 const double *z,
23013 const ptrdiff_t *k,
23014 const double *c,
23015 const double *s,
23016 double *rwork,
23017 ptrdiff_t *info
23018);
23019
23020/* Source: zlalsa.f */
23021#define zlalsa FORTRAN_WRAPPER(zlalsa)
23022extern void zlalsa(
23023 const ptrdiff_t *icompq,
23024 const ptrdiff_t *smlsiz,
23025 const ptrdiff_t *n,
23026 const ptrdiff_t *nrhs,
23027 double *b,
23028 const ptrdiff_t *ldb,
23029 double *bx,
23030 const ptrdiff_t *ldbx,
23031 const double *u,
23032 const ptrdiff_t *ldu,
23033 const double *vt,
23034 const ptrdiff_t *k,
23035 const double *difl,
23036 const double *difr,
23037 const double *z,
23038 const double *poles,
23039 const ptrdiff_t *givptr,
23040 const ptrdiff_t *givcol,
23041 const ptrdiff_t *ldgcol,
23042 const ptrdiff_t *perm,
23043 const double *givnum,
23044 const double *c,
23045 const double *s,
23046 double *rwork,
23047 ptrdiff_t *iwork,
23048 ptrdiff_t *info
23049);
23050
23051/* Source: zlalsd.f */
23052#define zlalsd FORTRAN_WRAPPER(zlalsd)
23053extern void zlalsd(
23054 const char *uplo,
23055 const ptrdiff_t *smlsiz,
23056 const ptrdiff_t *n,
23057 const ptrdiff_t *nrhs,
23058 double *d,
23059 double *e,
23060 double *b,
23061 const ptrdiff_t *ldb,
23062 const double *rcond,
23063 ptrdiff_t *rank,
23064 double *work,
23065 double *rwork,
23066 ptrdiff_t *iwork,
23067 ptrdiff_t *info
23068);
23069
23070/* Source: zlangb.f */
23071#define zlangb FORTRAN_WRAPPER(zlangb)
23072extern double zlangb(
23073 const char *norm,
23074 const ptrdiff_t *n,
23075 const ptrdiff_t *kl,
23076 const ptrdiff_t *ku,
23077 const double *ab,
23078 const ptrdiff_t *ldab,
23079 double *work
23080);
23081
23082/* Source: zlange.f */
23083#define zlange FORTRAN_WRAPPER(zlange)
23084extern double zlange(
23085 const char *norm,
23086 const ptrdiff_t *m,
23087 const ptrdiff_t *n,
23088 const double *a,
23089 const ptrdiff_t *lda,
23090 double *work
23091);
23092
23093/* Source: zlangt.f */
23094#define zlangt FORTRAN_WRAPPER(zlangt)
23095extern double zlangt(
23096 const char *norm,
23097 const ptrdiff_t *n,
23098 const double *dl,
23099 const double *d,
23100 const double *du
23101);
23102
23103/* Source: zlanhb.f */
23104#define zlanhb FORTRAN_WRAPPER(zlanhb)
23105extern double zlanhb(
23106 const char *norm,
23107 const char *uplo,
23108 const ptrdiff_t *n,
23109 const ptrdiff_t *k,
23110 const double *ab,
23111 const ptrdiff_t *ldab,
23112 double *work
23113);
23114
23115/* Source: zlanhe.f */
23116#define zlanhe FORTRAN_WRAPPER(zlanhe)
23117extern double zlanhe(
23118 const char *norm,
23119 const char *uplo,
23120 const ptrdiff_t *n,
23121 const double *a,
23122 const ptrdiff_t *lda,
23123 double *work
23124);
23125
23126/* Source: zlanhf.f */
23127#define zlanhf FORTRAN_WRAPPER(zlanhf)
23128extern double zlanhf(
23129 const char *norm,
23130 const char *transr,
23131 const char *uplo,
23132 const ptrdiff_t *n,
23133 const double *a,
23134 double *work
23135);
23136
23137/* Source: zlanhp.f */
23138#define zlanhp FORTRAN_WRAPPER(zlanhp)
23139extern double zlanhp(
23140 const char *norm,
23141 const char *uplo,
23142 const ptrdiff_t *n,
23143 const double *ap,
23144 double *work
23145);
23146
23147/* Source: zlanhs.f */
23148#define zlanhs FORTRAN_WRAPPER(zlanhs)
23149extern double zlanhs(
23150 const char *norm,
23151 const ptrdiff_t *n,
23152 const double *a,
23153 const ptrdiff_t *lda,
23154 double *work
23155);
23156
23157/* Source: zlanht.f */
23158#define zlanht FORTRAN_WRAPPER(zlanht)
23159extern double zlanht(
23160 const char *norm,
23161 const ptrdiff_t *n,
23162 const double *d,
23163 const double *e
23164);
23165
23166/* Source: zlansb.f */
23167#define zlansb FORTRAN_WRAPPER(zlansb)
23168extern double zlansb(
23169 const char *norm,
23170 const char *uplo,
23171 const ptrdiff_t *n,
23172 const ptrdiff_t *k,
23173 const double *ab,
23174 const ptrdiff_t *ldab,
23175 double *work
23176);
23177
23178/* Source: zlansp.f */
23179#define zlansp FORTRAN_WRAPPER(zlansp)
23180extern double zlansp(
23181 const char *norm,
23182 const char *uplo,
23183 const ptrdiff_t *n,
23184 const double *ap,
23185 double *work
23186);
23187
23188/* Source: zlansy.f */
23189#define zlansy FORTRAN_WRAPPER(zlansy)
23190extern double zlansy(
23191 const char *norm,
23192 const char *uplo,
23193 const ptrdiff_t *n,
23194 const double *a,
23195 const ptrdiff_t *lda,
23196 double *work
23197);
23198
23199/* Source: zlantb.f */
23200#define zlantb FORTRAN_WRAPPER(zlantb)
23201extern double zlantb(
23202 const char *norm,
23203 const char *uplo,
23204 const char *diag,
23205 const ptrdiff_t *n,
23206 const ptrdiff_t *k,
23207 const double *ab,
23208 const ptrdiff_t *ldab,
23209 double *work
23210);
23211
23212/* Source: zlantp.f */
23213#define zlantp FORTRAN_WRAPPER(zlantp)
23214extern double zlantp(
23215 const char *norm,
23216 const char *uplo,
23217 const char *diag,
23218 const ptrdiff_t *n,
23219 const double *ap,
23220 double *work
23221);
23222
23223/* Source: zlantr.f */
23224#define zlantr FORTRAN_WRAPPER(zlantr)
23225extern double zlantr(
23226 const char *norm,
23227 const char *uplo,
23228 const char *diag,
23229 const ptrdiff_t *m,
23230 const ptrdiff_t *n,
23231 const double *a,
23232 const ptrdiff_t *lda,
23233 double *work
23234);
23235
23236/* Source: zlapll.f */
23237#define zlapll FORTRAN_WRAPPER(zlapll)
23238extern void zlapll(
23239 const ptrdiff_t *n,
23240 double *x,
23241 const ptrdiff_t *incx,
23242 double *y,
23243 const ptrdiff_t *incy,
23244 double *ssmin
23245);
23246
23247/* Source: zlapmr.f */
23248#define zlapmr FORTRAN_WRAPPER(zlapmr)
23249extern void zlapmr(
23250 const ptrdiff_t *forwrd,
23251 const ptrdiff_t *m,
23252 const ptrdiff_t *n,
23253 double *x,
23254 const ptrdiff_t *ldx,
23255 ptrdiff_t *k
23256);
23257
23258/* Source: zlapmt.f */
23259#define zlapmt FORTRAN_WRAPPER(zlapmt)
23260extern void zlapmt(
23261 const ptrdiff_t *forwrd,
23262 const ptrdiff_t *m,
23263 const ptrdiff_t *n,
23264 double *x,
23265 const ptrdiff_t *ldx,
23266 ptrdiff_t *k
23267);
23268
23269/* Source: zlaqgb.f */
23270#define zlaqgb FORTRAN_WRAPPER(zlaqgb)
23271extern void zlaqgb(
23272 const ptrdiff_t *m,
23273 const ptrdiff_t *n,
23274 const ptrdiff_t *kl,
23275 const ptrdiff_t *ku,
23276 double *ab,
23277 const ptrdiff_t *ldab,
23278 const double *r,
23279 const double *c,
23280 const double *rowcnd,
23281 const double *colcnd,
23282 const double *amax,
23283 char *equed
23284);
23285
23286/* Source: zlaqge.f */
23287#define zlaqge FORTRAN_WRAPPER(zlaqge)
23288extern void zlaqge(
23289 const ptrdiff_t *m,
23290 const ptrdiff_t *n,
23291 double *a,
23292 const ptrdiff_t *lda,
23293 const double *r,
23294 const double *c,
23295 const double *rowcnd,
23296 const double *colcnd,
23297 const double *amax,
23298 char *equed
23299);
23300
23301/* Source: zlaqhb.f */
23302#define zlaqhb FORTRAN_WRAPPER(zlaqhb)
23303extern void zlaqhb(
23304 const char *uplo,
23305 const ptrdiff_t *n,
23306 const ptrdiff_t *kd,
23307 double *ab,
23308 const ptrdiff_t *ldab,
23309 double *s,
23310 const double *scond,
23311 const double *amax,
23312 char *equed
23313);
23314
23315/* Source: zlaqhe.f */
23316#define zlaqhe FORTRAN_WRAPPER(zlaqhe)
23317extern void zlaqhe(
23318 const char *uplo,
23319 const ptrdiff_t *n,
23320 double *a,
23321 const ptrdiff_t *lda,
23322 const double *s,
23323 const double *scond,
23324 const double *amax,
23325 char *equed
23326);
23327
23328/* Source: zlaqhp.f */
23329#define zlaqhp FORTRAN_WRAPPER(zlaqhp)
23330extern void zlaqhp(
23331 const char *uplo,
23332 const ptrdiff_t *n,
23333 double *ap,
23334 const double *s,
23335 const double *scond,
23336 const double *amax,
23337 char *equed
23338);
23339
23340/* Source: zlaqp2.f */
23341#define zlaqp2 FORTRAN_WRAPPER(zlaqp2)
23342extern void zlaqp2(
23343 const ptrdiff_t *m,
23344 const ptrdiff_t *n,
23345 const ptrdiff_t *offset,
23346 double *a,
23347 const ptrdiff_t *lda,
23348 ptrdiff_t *jpvt,
23349 double *tau,
23350 double *vn1,
23351 double *vn2,
23352 double *work
23353);
23354
23355/* Source: zlaqps.f */
23356#define zlaqps FORTRAN_WRAPPER(zlaqps)
23357extern void zlaqps(
23358 const ptrdiff_t *m,
23359 const ptrdiff_t *n,
23360 const ptrdiff_t *offset,
23361 const ptrdiff_t *nb,
23362 ptrdiff_t *kb,
23363 double *a,
23364 const ptrdiff_t *lda,
23365 ptrdiff_t *jpvt,
23366 double *tau,
23367 double *vn1,
23368 double *vn2,
23369 double *auxv,
23370 double *f,
23371 const ptrdiff_t *ldf
23372);
23373
23374/* Source: zlaqr0.f */
23375#define zlaqr0 FORTRAN_WRAPPER(zlaqr0)
23376extern void zlaqr0(
23377 const ptrdiff_t *wantt,
23378 const ptrdiff_t *wantz,
23379 const ptrdiff_t *n,
23380 const ptrdiff_t *ilo,
23381 const ptrdiff_t *ihi,
23382 double *h,
23383 const ptrdiff_t *ldh,
23384 double *w,
23385 ptrdiff_t *iloz,
23386 ptrdiff_t *ihiz,
23387 double *z,
23388 const ptrdiff_t *ldz,
23389 double *work,
23390 const ptrdiff_t *lwork,
23391 ptrdiff_t *info
23392);
23393
23394/* Source: zlaqr1.f */
23395#define zlaqr1 FORTRAN_WRAPPER(zlaqr1)
23396extern void zlaqr1(
23397 const ptrdiff_t *n,
23398 const double *h,
23399 const ptrdiff_t *ldh,
23400 const double *s1,
23401 double *s2,
23402 double *v
23403);
23404
23405/* Source: zlaqr2.f */
23406#define zlaqr2 FORTRAN_WRAPPER(zlaqr2)
23407extern void zlaqr2(
23408 const ptrdiff_t *wantt,
23409 const ptrdiff_t *wantz,
23410 const ptrdiff_t *n,
23411 const ptrdiff_t *ktop,
23412 const ptrdiff_t *kbot,
23413 const ptrdiff_t *nw,
23414 double *h,
23415 const ptrdiff_t *ldh,
23416 const ptrdiff_t *iloz,
23417 const ptrdiff_t *ihiz,
23418 double *z,
23419 const ptrdiff_t *ldz,
23420 ptrdiff_t *ns,
23421 ptrdiff_t *nd,
23422 double *sh,
23423 double *v,
23424 const ptrdiff_t *ldv,
23425 const ptrdiff_t *nh,
23426 double *t,
23427 const ptrdiff_t *ldt,
23428 const ptrdiff_t *nv,
23429 double *wv,
23430 const ptrdiff_t *ldwv,
23431 double *work,
23432 const ptrdiff_t *lwork
23433);
23434
23435/* Source: zlaqr3.f */
23436#define zlaqr3 FORTRAN_WRAPPER(zlaqr3)
23437extern void zlaqr3(
23438 const ptrdiff_t *wantt,
23439 const ptrdiff_t *wantz,
23440 const ptrdiff_t *n,
23441 const ptrdiff_t *ktop,
23442 const ptrdiff_t *kbot,
23443 const ptrdiff_t *nw,
23444 double *h,
23445 const ptrdiff_t *ldh,
23446 const ptrdiff_t *iloz,
23447 const ptrdiff_t *ihiz,
23448 double *z,
23449 const ptrdiff_t *ldz,
23450 ptrdiff_t *ns,
23451 ptrdiff_t *nd,
23452 double *sh,
23453 double *v,
23454 const ptrdiff_t *ldv,
23455 const ptrdiff_t *nh,
23456 double *t,
23457 const ptrdiff_t *ldt,
23458 const ptrdiff_t *nv,
23459 double *wv,
23460 const ptrdiff_t *ldwv,
23461 double *work,
23462 const ptrdiff_t *lwork
23463);
23464
23465/* Source: zlaqr4.f */
23466#define zlaqr4 FORTRAN_WRAPPER(zlaqr4)
23467extern void zlaqr4(
23468 const ptrdiff_t *wantt,
23469 const ptrdiff_t *wantz,
23470 const ptrdiff_t *n,
23471 const ptrdiff_t *ilo,
23472 const ptrdiff_t *ihi,
23473 double *h,
23474 const ptrdiff_t *ldh,
23475 double *w,
23476 ptrdiff_t *iloz,
23477 ptrdiff_t *ihiz,
23478 double *z,
23479 const ptrdiff_t *ldz,
23480 double *work,
23481 const ptrdiff_t *lwork,
23482 ptrdiff_t *info
23483);
23484
23485/* Source: zlaqr5.f */
23486#define zlaqr5 FORTRAN_WRAPPER(zlaqr5)
23487extern void zlaqr5(
23488 const ptrdiff_t *wantt,
23489 const ptrdiff_t *wantz,
23490 const ptrdiff_t *kacc22,
23491 const ptrdiff_t *n,
23492 const ptrdiff_t *ktop,
23493 const ptrdiff_t *kbot,
23494 const ptrdiff_t *nshfts,
23495 double *s,
23496 double *h,
23497 const ptrdiff_t *ldh,
23498 const ptrdiff_t *iloz,
23499 const ptrdiff_t *ihiz,
23500 double *z,
23501 const ptrdiff_t *ldz,
23502 double *v,
23503 const ptrdiff_t *ldv,
23504 double *u,
23505 const ptrdiff_t *ldu,
23506 const ptrdiff_t *nv,
23507 double *wv,
23508 const ptrdiff_t *ldwv,
23509 const ptrdiff_t *nh,
23510 double *wh,
23511 const ptrdiff_t *ldwh
23512);
23513
23514/* Source: zlaqsb.f */
23515#define zlaqsb FORTRAN_WRAPPER(zlaqsb)
23516extern void zlaqsb(
23517 const char *uplo,
23518 const ptrdiff_t *n,
23519 const ptrdiff_t *kd,
23520 double *ab,
23521 const ptrdiff_t *ldab,
23522 const double *s,
23523 const double *scond,
23524 const double *amax,
23525 char *equed
23526);
23527
23528/* Source: zlaqsp.f */
23529#define zlaqsp FORTRAN_WRAPPER(zlaqsp)
23530extern void zlaqsp(
23531 const char *uplo,
23532 const ptrdiff_t *n,
23533 double *ap,
23534 const double *s,
23535 const double *scond,
23536 const double *amax,
23537 char *equed
23538);
23539
23540/* Source: zlaqsy.f */
23541#define zlaqsy FORTRAN_WRAPPER(zlaqsy)
23542extern void zlaqsy(
23543 const char *uplo,
23544 const ptrdiff_t *n,
23545 double *a,
23546 const ptrdiff_t *lda,
23547 const double *s,
23548 const double *scond,
23549 const double *amax,
23550 char *equed
23551);
23552
23553/* Source: zlar1v.f */
23554#define zlar1v FORTRAN_WRAPPER(zlar1v)
23555extern void zlar1v(
23556 const ptrdiff_t *n,
23557 const ptrdiff_t *b1,
23558 const ptrdiff_t *bn,
23559 const double *lambda,
23560 const double *d,
23561 const double *l,
23562 const double *ld,
23563 const double *lld,
23564 const double *pivmin,
23565 const double *gaptol,
23566 double *z,
23567 const ptrdiff_t *wantnc,
23568 ptrdiff_t *negcnt,
23569 double *ztz,
23570 double *mingma,
23571 ptrdiff_t *r,
23572 ptrdiff_t *isuppz,
23573 double *nrminv,
23574 double *resid,
23575 double *rqcorr,
23576 double *work
23577);
23578
23579/* Source: zlar2v.f */
23580#define zlar2v FORTRAN_WRAPPER(zlar2v)
23581extern void zlar2v(
23582 const ptrdiff_t *n,
23583 double *x,
23584 double *y,
23585 double *z,
23586 const ptrdiff_t *incx,
23587 const double *c,
23588 const double *s,
23589 const ptrdiff_t *incc
23590);
23591
23592/* Source: zlarcm.f */
23593#define zlarcm FORTRAN_WRAPPER(zlarcm)
23594extern void zlarcm(
23595 const ptrdiff_t *m,
23596 const ptrdiff_t *n,
23597 const double *a,
23598 const ptrdiff_t *lda,
23599 const double *b,
23600 const ptrdiff_t *ldb,
23601 const double *c,
23602 const ptrdiff_t *ldc,
23603 double *rwork
23604);
23605
23606/* Source: zlarf.f */
23607#define zlarf FORTRAN_WRAPPER(zlarf)
23608extern void zlarf(
23609 const char *side,
23610 const ptrdiff_t *m,
23611 const ptrdiff_t *n,
23612 const double *v,
23613 const ptrdiff_t *incv,
23614 const double *tau,
23615 double *c,
23616 const ptrdiff_t *ldc,
23617 double *work
23618);
23619
23620/* Source: zlarfb.f */
23621#define zlarfb FORTRAN_WRAPPER(zlarfb)
23622extern void zlarfb(
23623 const char *side,
23624 const char *trans,
23625 const char *direct,
23626 const char *storev,
23627 const ptrdiff_t *m,
23628 const ptrdiff_t *n,
23629 const ptrdiff_t *k,
23630 const double *v,
23631 const ptrdiff_t *ldv,
23632 const double *t,
23633 const ptrdiff_t *ldt,
23634 double *c,
23635 const ptrdiff_t *ldc,
23636 double *work,
23637 const ptrdiff_t *ldwork
23638);
23639
23640/* Source: zlarfg.f */
23641#define zlarfg FORTRAN_WRAPPER(zlarfg)
23642extern void zlarfg(
23643 const ptrdiff_t *n,
23644 double *alpha,
23645 double *x,
23646 const ptrdiff_t *incx,
23647 double *tau
23648);
23649
23650/* Source: zlarfgp.f */
23651#define zlarfgp FORTRAN_WRAPPER(zlarfgp)
23652extern void zlarfgp(
23653 const ptrdiff_t *n,
23654 double *alpha,
23655 double *x,
23656 const ptrdiff_t *incx,
23657 double *tau
23658);
23659
23660/* Source: zlarft.f */
23661#define zlarft FORTRAN_WRAPPER(zlarft)
23662extern void zlarft(
23663 const char *direct,
23664 const char *storev,
23665 const ptrdiff_t *n,
23666 const ptrdiff_t *k,
23667 double *v,
23668 const ptrdiff_t *ldv,
23669 const double *tau,
23670 double *t,
23671 const ptrdiff_t *ldt
23672);
23673
23674/* Source: zlarfx.f */
23675#define zlarfx FORTRAN_WRAPPER(zlarfx)
23676extern void zlarfx(
23677 const char *side,
23678 const ptrdiff_t *m,
23679 const ptrdiff_t *n,
23680 const double *v,
23681 const double *tau,
23682 double *c,
23683 const ptrdiff_t *ldc,
23684 double *work
23685);
23686
23687/* Source: zlargv.f */
23688#define zlargv FORTRAN_WRAPPER(zlargv)
23689extern void zlargv(
23690 const ptrdiff_t *n,
23691 double *x,
23692 const ptrdiff_t *incx,
23693 double *y,
23694 const ptrdiff_t *incy,
23695 double *c,
23696 const ptrdiff_t *incc
23697);
23698
23699/* Source: zlarnv.f */
23700#define zlarnv FORTRAN_WRAPPER(zlarnv)
23701extern void zlarnv(
23702 const ptrdiff_t *idist,
23703 ptrdiff_t *iseed,
23704 const ptrdiff_t *n,
23705 double *x
23706);
23707
23708/* Source: zlarrv.f */
23709#define zlarrv FORTRAN_WRAPPER(zlarrv)
23710extern void zlarrv(
23711 const ptrdiff_t *n,
23712 const double *vl,
23713 const double *vu,
23714 double *d,
23715 double *l,
23716 double *pivmin,
23717 const ptrdiff_t *isplit,
23718 const ptrdiff_t *m,
23719 const ptrdiff_t *dol,
23720 const ptrdiff_t *dou,
23721 const double *minrgp,
23722 const double *rtol1,
23723 const double *rtol2,
23724 double *w,
23725 double *werr,
23726 double *wgap,
23727 const ptrdiff_t *iblock,
23728 const ptrdiff_t *indexw,
23729 const double *gers,
23730 double *z,
23731 const ptrdiff_t *ldz,
23732 ptrdiff_t *isuppz,
23733 double *work,
23734 ptrdiff_t *iwork,
23735 ptrdiff_t *info
23736);
23737
23738/* Source: zlartg.f */
23739#define zlartg FORTRAN_WRAPPER(zlartg)
23740extern void zlartg(
23741 const double *f,
23742 const double *g,
23743 double *cs,
23744 double *sn,
23745 double *r
23746);
23747
23748/* Source: zlartv.f */
23749#define zlartv FORTRAN_WRAPPER(zlartv)
23750extern void zlartv(
23751 const ptrdiff_t *n,
23752 double *x,
23753 const ptrdiff_t *incx,
23754 double *y,
23755 const ptrdiff_t *incy,
23756 const double *c,
23757 const double *s,
23758 const ptrdiff_t *incc
23759);
23760
23761/* Source: zlarz.f */
23762#define zlarz FORTRAN_WRAPPER(zlarz)
23763extern void zlarz(
23764 const char *side,
23765 const ptrdiff_t *m,
23766 const ptrdiff_t *n,
23767 const ptrdiff_t *l,
23768 const double *v,
23769 const ptrdiff_t *incv,
23770 const double *tau,
23771 double *c,
23772 const ptrdiff_t *ldc,
23773 double *work
23774);
23775
23776/* Source: zlarzb.f */
23777#define zlarzb FORTRAN_WRAPPER(zlarzb)
23778extern void zlarzb(
23779 const char *side,
23780 const char *trans,
23781 const char *direct,
23782 const char *storev,
23783 const ptrdiff_t *m,
23784 const ptrdiff_t *n,
23785 const ptrdiff_t *k,
23786 const ptrdiff_t *l,
23787 const double *v,
23788 const ptrdiff_t *ldv,
23789 const double *t,
23790 const ptrdiff_t *ldt,
23791 double *c,
23792 const ptrdiff_t *ldc,
23793 double *work,
23794 const ptrdiff_t *ldwork
23795);
23796
23797/* Source: zlarzt.f */
23798#define zlarzt FORTRAN_WRAPPER(zlarzt)
23799extern void zlarzt(
23800 const char *direct,
23801 const char *storev,
23802 const ptrdiff_t *n,
23803 const ptrdiff_t *k,
23804 double *v,
23805 const ptrdiff_t *ldv,
23806 const double *tau,
23807 double *t,
23808 const ptrdiff_t *ldt
23809);
23810
23811/* Source: zlascl.f */
23812#define zlascl FORTRAN_WRAPPER(zlascl)
23813extern void zlascl(
23814 const char *type,
23815 const ptrdiff_t *kl,
23816 const ptrdiff_t *ku,
23817 const double *cfrom,
23818 const double *cto,
23819 const ptrdiff_t *m,
23820 const ptrdiff_t *n,
23821 double *a,
23822 const ptrdiff_t *lda,
23823 ptrdiff_t *info
23824);
23825
23826/* Source: zlaset.f */
23827#define zlaset FORTRAN_WRAPPER(zlaset)
23828extern void zlaset(
23829 const char *uplo,
23830 const ptrdiff_t *m,
23831 const ptrdiff_t *n,
23832 const double *alpha,
23833 const double *beta,
23834 double *a,
23835 const ptrdiff_t *lda
23836);
23837
23838/* Source: zlasr.f */
23839#define zlasr FORTRAN_WRAPPER(zlasr)
23840extern void zlasr(
23841 const char *side,
23842 const char *pivot,
23843 const char *direct,
23844 const ptrdiff_t *m,
23845 const ptrdiff_t *n,
23846 const double *c,
23847 const double *s,
23848 double *a,
23849 const ptrdiff_t *lda
23850);
23851
23852/* Source: zlassq.f */
23853#define zlassq FORTRAN_WRAPPER(zlassq)
23854extern void zlassq(
23855 const ptrdiff_t *n,
23856 const double *x,
23857 const ptrdiff_t *incx,
23858 double *scale,
23859 double *sumsq
23860);
23861
23862/* Source: zlaswp.f */
23863#define zlaswp FORTRAN_WRAPPER(zlaswp)
23864extern void zlaswp(
23865 const ptrdiff_t *n,
23866 double *a,
23867 const ptrdiff_t *lda,
23868 const ptrdiff_t *k1,
23869 const ptrdiff_t *k2,
23870 const ptrdiff_t *ipiv,
23871 const ptrdiff_t *incx
23872);
23873
23874/* Source: zlasyf.f */
23875#define zlasyf FORTRAN_WRAPPER(zlasyf)
23876extern void zlasyf(
23877 const char *uplo,
23878 const ptrdiff_t *n,
23879 const ptrdiff_t *nb,
23880 ptrdiff_t *kb,
23881 double *a,
23882 const ptrdiff_t *lda,
23883 ptrdiff_t *ipiv,
23884 double *w,
23885 const ptrdiff_t *ldw,
23886 ptrdiff_t *info
23887);
23888
23889/* Source: zlasyf_rook.f */
23890#define zlasyf_rook FORTRAN_WRAPPER(zlasyf_rook)
23891extern void zlasyf_rook(
23892 const char *uplo,
23893 const ptrdiff_t *n,
23894 const ptrdiff_t *nb,
23895 ptrdiff_t *kb,
23896 double *a,
23897 const ptrdiff_t *lda,
23898 ptrdiff_t *ipiv,
23899 double *w,
23900 const ptrdiff_t *ldw,
23901 ptrdiff_t *info
23902);
23903
23904/* Source: zlat2c.f */
23905#define zlat2c FORTRAN_WRAPPER(zlat2c)
23906extern void zlat2c(
23907 const char *uplo,
23908 const ptrdiff_t *n,
23909 const double *a,
23910 const ptrdiff_t *lda,
23911 float *sa,
23912 const ptrdiff_t *ldsa,
23913 ptrdiff_t *info
23914);
23915
23916/* Source: zlatbs.f */
23917#define zlatbs FORTRAN_WRAPPER(zlatbs)
23918extern void zlatbs(
23919 const char *uplo,
23920 const char *trans,
23921 const char *diag,
23922 const char *normin,
23923 const ptrdiff_t *n,
23924 const ptrdiff_t *kd,
23925 const double *ab,
23926 const ptrdiff_t *ldab,
23927 double *x,
23928 double *scale,
23929 double *cnorm,
23930 ptrdiff_t *info
23931);
23932
23933/* Source: zlatdf.f */
23934#define zlatdf FORTRAN_WRAPPER(zlatdf)
23935extern void zlatdf(
23936 const ptrdiff_t *ijob,
23937 const ptrdiff_t *n,
23938 const double *z,
23939 const ptrdiff_t *ldz,
23940 double *rhs,
23941 double *rdsum,
23942 double *rdscal,
23943 const ptrdiff_t *ipiv,
23944 const ptrdiff_t *jpiv
23945);
23946
23947/* Source: zlatps.f */
23948#define zlatps FORTRAN_WRAPPER(zlatps)
23949extern void zlatps(
23950 const char *uplo,
23951 const char *trans,
23952 const char *diag,
23953 const char *normin,
23954 const ptrdiff_t *n,
23955 const double *ap,
23956 double *x,
23957 double *scale,
23958 double *cnorm,
23959 ptrdiff_t *info
23960);
23961
23962/* Source: zlatrd.f */
23963#define zlatrd FORTRAN_WRAPPER(zlatrd)
23964extern void zlatrd(
23965 const char *uplo,
23966 const ptrdiff_t *n,
23967 const ptrdiff_t *nb,
23968 double *a,
23969 const ptrdiff_t *lda,
23970 double *e,
23971 double *tau,
23972 double *w,
23973 const ptrdiff_t *ldw
23974);
23975
23976/* Source: zlatrs.f */
23977#define zlatrs FORTRAN_WRAPPER(zlatrs)
23978extern void zlatrs(
23979 const char *uplo,
23980 const char *trans,
23981 const char *diag,
23982 const char *normin,
23983 const ptrdiff_t *n,
23984 const double *a,
23985 const ptrdiff_t *lda,
23986 double *x,
23987 double *scale,
23988 double *cnorm,
23989 ptrdiff_t *info
23990);
23991
23992/* Source: zlatrz.f */
23993#define zlatrz FORTRAN_WRAPPER(zlatrz)
23994extern void zlatrz(
23995 const ptrdiff_t *m,
23996 const ptrdiff_t *n,
23997 const ptrdiff_t *l,
23998 double *a,
23999 const ptrdiff_t *lda,
24000 double *tau,
24001 double *work
24002);
24003
24004/* Source: zlatzm.f */
24005#define zlatzm FORTRAN_WRAPPER(zlatzm)
24006extern void zlatzm(
24007 const char *side,
24008 const ptrdiff_t *m,
24009 const ptrdiff_t *n,
24010 const double *v,
24011 const ptrdiff_t *incv,
24012 const double *tau,
24013 double *c1,
24014 double *c2,
24015 const ptrdiff_t *ldc,
24016 double *work
24017);
24018
24019/* Source: zlauu2.f */
24020#define zlauu2 FORTRAN_WRAPPER(zlauu2)
24021extern void zlauu2(
24022 const char *uplo,
24023 const ptrdiff_t *n,
24024 double *a,
24025 const ptrdiff_t *lda,
24026 ptrdiff_t *info
24027);
24028
24029/* Source: zlauum.f */
24030#define zlauum FORTRAN_WRAPPER(zlauum)
24031extern void zlauum(
24032 const char *uplo,
24033 const ptrdiff_t *n,
24034 double *a,
24035 const ptrdiff_t *lda,
24036 ptrdiff_t *info
24037);
24038
24039/* Source: zpbcon.f */
24040#define zpbcon FORTRAN_WRAPPER(zpbcon)
24041extern void zpbcon(
24042 const char *uplo,
24043 const ptrdiff_t *n,
24044 const ptrdiff_t *kd,
24045 const double *ab,
24046 const ptrdiff_t *ldab,
24047 const double *anorm,
24048 double *rcond,
24049 double *work,
24050 double *rwork,
24051 ptrdiff_t *info
24052);
24053
24054/* Source: zpbequ.f */
24055#define zpbequ FORTRAN_WRAPPER(zpbequ)
24056extern void zpbequ(
24057 const char *uplo,
24058 const ptrdiff_t *n,
24059 const ptrdiff_t *kd,
24060 const double *ab,
24061 const ptrdiff_t *ldab,
24062 double *s,
24063 double *scond,
24064 double *amax,
24065 ptrdiff_t *info
24066);
24067
24068/* Source: zpbrfs.f */
24069#define zpbrfs FORTRAN_WRAPPER(zpbrfs)
24070extern void zpbrfs(
24071 const char *uplo,
24072 const ptrdiff_t *n,
24073 const ptrdiff_t *kd,
24074 const ptrdiff_t *nrhs,
24075 const double *ab,
24076 const ptrdiff_t *ldab,
24077 const double *afb,
24078 const ptrdiff_t *ldafb,
24079 const double *b,
24080 const ptrdiff_t *ldb,
24081 double *x,
24082 const ptrdiff_t *ldx,
24083 double *ferr,
24084 double *berr,
24085 double *work,
24086 double *rwork,
24087 ptrdiff_t *info
24088);
24089
24090/* Source: zpbstf.f */
24091#define zpbstf FORTRAN_WRAPPER(zpbstf)
24092extern void zpbstf(
24093 const char *uplo,
24094 const ptrdiff_t *n,
24095 const ptrdiff_t *kd,
24096 double *ab,
24097 const ptrdiff_t *ldab,
24098 ptrdiff_t *info
24099);
24100
24101/* Source: zpbsv.f */
24102#define zpbsv FORTRAN_WRAPPER(zpbsv)
24103extern void zpbsv(
24104 const char *uplo,
24105 const ptrdiff_t *n,
24106 const ptrdiff_t *kd,
24107 const ptrdiff_t *nrhs,
24108 double *ab,
24109 const ptrdiff_t *ldab,
24110 double *b,
24111 const ptrdiff_t *ldb,
24112 ptrdiff_t *info
24113);
24114
24115/* Source: zpbsvx.f */
24116#define zpbsvx FORTRAN_WRAPPER(zpbsvx)
24117extern void zpbsvx(
24118 const char *fact,
24119 const char *uplo,
24120 const ptrdiff_t *n,
24121 const ptrdiff_t *kd,
24122 const ptrdiff_t *nrhs,
24123 double *ab,
24124 const ptrdiff_t *ldab,
24125 double *afb,
24126 const ptrdiff_t *ldafb,
24127 char *equed,
24128 double *s,
24129 double *b,
24130 const ptrdiff_t *ldb,
24131 double *x,
24132 const ptrdiff_t *ldx,
24133 double *rcond,
24134 double *ferr,
24135 double *berr,
24136 double *work,
24137 double *rwork,
24138 ptrdiff_t *info
24139);
24140
24141/* Source: zpbtf2.f */
24142#define zpbtf2 FORTRAN_WRAPPER(zpbtf2)
24143extern void zpbtf2(
24144 const char *uplo,
24145 const ptrdiff_t *n,
24146 const ptrdiff_t *kd,
24147 double *ab,
24148 const ptrdiff_t *ldab,
24149 ptrdiff_t *info
24150);
24151
24152/* Source: zpbtrf.f */
24153#define zpbtrf FORTRAN_WRAPPER(zpbtrf)
24154extern void zpbtrf(
24155 const char *uplo,
24156 const ptrdiff_t *n,
24157 const ptrdiff_t *kd,
24158 double *ab,
24159 const ptrdiff_t *ldab,
24160 ptrdiff_t *info
24161);
24162
24163/* Source: zpbtrs.f */
24164#define zpbtrs FORTRAN_WRAPPER(zpbtrs)
24165extern void zpbtrs(
24166 const char *uplo,
24167 const ptrdiff_t *n,
24168 const ptrdiff_t *kd,
24169 const ptrdiff_t *nrhs,
24170 const double *ab,
24171 const ptrdiff_t *ldab,
24172 double *b,
24173 const ptrdiff_t *ldb,
24174 ptrdiff_t *info
24175);
24176
24177/* Source: zpftrf.f */
24178#define zpftrf FORTRAN_WRAPPER(zpftrf)
24179extern void zpftrf(
24180 const char *transr,
24181 const char *uplo,
24182 const ptrdiff_t *n,
24183 double *a,
24184 ptrdiff_t *info
24185);
24186
24187/* Source: zpftri.f */
24188#define zpftri FORTRAN_WRAPPER(zpftri)
24189extern void zpftri(
24190 const char *transr,
24191 const char *uplo,
24192 const ptrdiff_t *n,
24193 double *a,
24194 ptrdiff_t *info
24195);
24196
24197/* Source: zpftrs.f */
24198#define zpftrs FORTRAN_WRAPPER(zpftrs)
24199extern void zpftrs(
24200 const char *transr,
24201 const char *uplo,
24202 const ptrdiff_t *n,
24203 const ptrdiff_t *nrhs,
24204 const double *a,
24205 double *b,
24206 const ptrdiff_t *ldb,
24207 ptrdiff_t *info
24208);
24209
24210/* Source: zpocon.f */
24211#define zpocon FORTRAN_WRAPPER(zpocon)
24212extern void zpocon(
24213 const char *uplo,
24214 const ptrdiff_t *n,
24215 const double *a,
24216 const ptrdiff_t *lda,
24217 const double *anorm,
24218 double *rcond,
24219 double *work,
24220 double *rwork,
24221 ptrdiff_t *info
24222);
24223
24224/* Source: zpoequ.f */
24225#define zpoequ FORTRAN_WRAPPER(zpoequ)
24226extern void zpoequ(
24227 const ptrdiff_t *n,
24228 const double *a,
24229 const ptrdiff_t *lda,
24230 double *s,
24231 double *scond,
24232 double *amax,
24233 ptrdiff_t *info
24234);
24235
24236/* Source: zpoequb.f */
24237#define zpoequb FORTRAN_WRAPPER(zpoequb)
24238extern void zpoequb(
24239 const ptrdiff_t *n,
24240 const double *a,
24241 const ptrdiff_t *lda,
24242 double *s,
24243 double *scond,
24244 double *amax,
24245 ptrdiff_t *info
24246);
24247
24248/* Source: zporfs.f */
24249#define zporfs FORTRAN_WRAPPER(zporfs)
24250extern void zporfs(
24251 const char *uplo,
24252 const ptrdiff_t *n,
24253 const ptrdiff_t *nrhs,
24254 const double *a,
24255 const ptrdiff_t *lda,
24256 const double *af,
24257 const ptrdiff_t *ldaf,
24258 const double *b,
24259 const ptrdiff_t *ldb,
24260 double *x,
24261 const ptrdiff_t *ldx,
24262 double *ferr,
24263 double *berr,
24264 double *work,
24265 double *rwork,
24266 ptrdiff_t *info
24267);
24268
24269/* Source: zposv.f */
24270#define zposv FORTRAN_WRAPPER(zposv)
24271extern void zposv(
24272 const char *uplo,
24273 const ptrdiff_t *n,
24274 const ptrdiff_t *nrhs,
24275 double *a,
24276 const ptrdiff_t *lda,
24277 double *b,
24278 const ptrdiff_t *ldb,
24279 ptrdiff_t *info
24280);
24281
24282/* Source: zposvx.f */
24283#define zposvx FORTRAN_WRAPPER(zposvx)
24284extern void zposvx(
24285 const char *fact,
24286 const char *uplo,
24287 const ptrdiff_t *n,
24288 const ptrdiff_t *nrhs,
24289 double *a,
24290 const ptrdiff_t *lda,
24291 double *af,
24292 const ptrdiff_t *ldaf,
24293 char *equed,
24294 double *s,
24295 double *b,
24296 const ptrdiff_t *ldb,
24297 double *x,
24298 const ptrdiff_t *ldx,
24299 double *rcond,
24300 double *ferr,
24301 double *berr,
24302 double *work,
24303 double *rwork,
24304 ptrdiff_t *info
24305);
24306
24307/* Source: zpotf2.f */
24308#define zpotf2 FORTRAN_WRAPPER(zpotf2)
24309extern void zpotf2(
24310 const char *uplo,
24311 const ptrdiff_t *n,
24312 double *a,
24313 const ptrdiff_t *lda,
24314 ptrdiff_t *info
24315);
24316
24317/* Source: zpotrf.f */
24318#define zpotrf FORTRAN_WRAPPER(zpotrf)
24319extern void zpotrf(
24320 const char *uplo,
24321 const ptrdiff_t *n,
24322 double *a,
24323 const ptrdiff_t *lda,
24324 ptrdiff_t *info
24325);
24326
24327/* Source: zpotri.f */
24328#define zpotri FORTRAN_WRAPPER(zpotri)
24329extern void zpotri(
24330 const char *uplo,
24331 const ptrdiff_t *n,
24332 double *a,
24333 const ptrdiff_t *lda,
24334 ptrdiff_t *info
24335);
24336
24337/* Source: zpotrs.f */
24338#define zpotrs FORTRAN_WRAPPER(zpotrs)
24339extern void zpotrs(
24340 const char *uplo,
24341 const ptrdiff_t *n,
24342 const ptrdiff_t *nrhs,
24343 const double *a,
24344 const ptrdiff_t *lda,
24345 double *b,
24346 const ptrdiff_t *ldb,
24347 ptrdiff_t *info
24348);
24349
24350/* Source: zppcon.f */
24351#define zppcon FORTRAN_WRAPPER(zppcon)
24352extern void zppcon(
24353 const char *uplo,
24354 const ptrdiff_t *n,
24355 const double *ap,
24356 const double *anorm,
24357 double *rcond,
24358 double *work,
24359 double *rwork,
24360 ptrdiff_t *info
24361);
24362
24363/* Source: zppequ.f */
24364#define zppequ FORTRAN_WRAPPER(zppequ)
24365extern void zppequ(
24366 const char *uplo,
24367 const ptrdiff_t *n,
24368 const double *ap,
24369 double *s,
24370 double *scond,
24371 double *amax,
24372 ptrdiff_t *info
24373);
24374
24375/* Source: zpprfs.f */
24376#define zpprfs FORTRAN_WRAPPER(zpprfs)
24377extern void zpprfs(
24378 const char *uplo,
24379 const ptrdiff_t *n,
24380 const ptrdiff_t *nrhs,
24381 const double *ap,
24382 const double *afp,
24383 const double *b,
24384 const ptrdiff_t *ldb,
24385 double *x,
24386 const ptrdiff_t *ldx,
24387 double *ferr,
24388 double *berr,
24389 double *work,
24390 double *rwork,
24391 ptrdiff_t *info
24392);
24393
24394/* Source: zppsv.f */
24395#define zppsv FORTRAN_WRAPPER(zppsv)
24396extern void zppsv(
24397 const char *uplo,
24398 const ptrdiff_t *n,
24399 const ptrdiff_t *nrhs,
24400 double *ap,
24401 double *b,
24402 const ptrdiff_t *ldb,
24403 ptrdiff_t *info
24404);
24405
24406/* Source: zppsvx.f */
24407#define zppsvx FORTRAN_WRAPPER(zppsvx)
24408extern void zppsvx(
24409 const char *fact,
24410 const char *uplo,
24411 const ptrdiff_t *n,
24412 const ptrdiff_t *nrhs,
24413 double *ap,
24414 double *afp,
24415 char *equed,
24416 double *s,
24417 double *b,
24418 const ptrdiff_t *ldb,
24419 double *x,
24420 const ptrdiff_t *ldx,
24421 double *rcond,
24422 double *ferr,
24423 double *berr,
24424 double *work,
24425 double *rwork,
24426 ptrdiff_t *info
24427);
24428
24429/* Source: zpptrf.f */
24430#define zpptrf FORTRAN_WRAPPER(zpptrf)
24431extern void zpptrf(
24432 const char *uplo,
24433 const ptrdiff_t *n,
24434 double *ap,
24435 ptrdiff_t *info
24436);
24437
24438/* Source: zpptri.f */
24439#define zpptri FORTRAN_WRAPPER(zpptri)
24440extern void zpptri(
24441 const char *uplo,
24442 const ptrdiff_t *n,
24443 double *ap,
24444 ptrdiff_t *info
24445);
24446
24447/* Source: zpptrs.f */
24448#define zpptrs FORTRAN_WRAPPER(zpptrs)
24449extern void zpptrs(
24450 const char *uplo,
24451 const ptrdiff_t *n,
24452 const ptrdiff_t *nrhs,
24453 const double *ap,
24454 double *b,
24455 const ptrdiff_t *ldb,
24456 ptrdiff_t *info
24457);
24458
24459/* Source: zpstf2.f */
24460#define zpstf2 FORTRAN_WRAPPER(zpstf2)
24461extern void zpstf2(
24462 const char *uplo,
24463 const ptrdiff_t *n,
24464 double *a,
24465 const ptrdiff_t *lda,
24466 ptrdiff_t *piv,
24467 ptrdiff_t *rank,
24468 const double *tol,
24469 double *work,
24470 ptrdiff_t *info
24471);
24472
24473/* Source: zpstrf.f */
24474#define zpstrf FORTRAN_WRAPPER(zpstrf)
24475extern void zpstrf(
24476 const char *uplo,
24477 const ptrdiff_t *n,
24478 double *a,
24479 const ptrdiff_t *lda,
24480 ptrdiff_t *piv,
24481 ptrdiff_t *rank,
24482 const double *tol,
24483 double *work,
24484 ptrdiff_t *info
24485);
24486
24487/* Source: zptcon.f */
24488#define zptcon FORTRAN_WRAPPER(zptcon)
24489extern void zptcon(
24490 const ptrdiff_t *n,
24491 const double *d,
24492 const double *e,
24493 const double *anorm,
24494 double *rcond,
24495 double *rwork,
24496 ptrdiff_t *info
24497);
24498
24499/* Source: zpteqr.f */
24500#define zpteqr FORTRAN_WRAPPER(zpteqr)
24501extern void zpteqr(
24502 const char *compz,
24503 const ptrdiff_t *n,
24504 double *d,
24505 double *e,
24506 double *z,
24507 const ptrdiff_t *ldz,
24508 double *work,
24509 ptrdiff_t *info
24510);
24511
24512/* Source: zptrfs.f */
24513#define zptrfs FORTRAN_WRAPPER(zptrfs)
24514extern void zptrfs(
24515 const char *uplo,
24516 const ptrdiff_t *n,
24517 const ptrdiff_t *nrhs,
24518 const double *d,
24519 const double *e,
24520 const double *df,
24521 const double *ef,
24522 const double *b,
24523 const ptrdiff_t *ldb,
24524 double *x,
24525 const ptrdiff_t *ldx,
24526 double *ferr,
24527 double *berr,
24528 double *work,
24529 double *rwork,
24530 ptrdiff_t *info
24531);
24532
24533/* Source: zptsv.f */
24534#define zptsv FORTRAN_WRAPPER(zptsv)
24535extern void zptsv(
24536 const ptrdiff_t *n,
24537 const ptrdiff_t *nrhs,
24538 double *d,
24539 double *e,
24540 double *b,
24541 const ptrdiff_t *ldb,
24542 ptrdiff_t *info
24543);
24544
24545/* Source: zptsvx.f */
24546#define zptsvx FORTRAN_WRAPPER(zptsvx)
24547extern void zptsvx(
24548 const char *fact,
24549 const ptrdiff_t *n,
24550 const ptrdiff_t *nrhs,
24551 const double *d,
24552 const double *e,
24553 double *df,
24554 double *ef,
24555 const double *b,
24556 const ptrdiff_t *ldb,
24557 double *x,
24558 const ptrdiff_t *ldx,
24559 double *rcond,
24560 double *ferr,
24561 double *berr,
24562 double *work,
24563 double *rwork,
24564 ptrdiff_t *info
24565);
24566
24567/* Source: zpttrf.f */
24568#define zpttrf FORTRAN_WRAPPER(zpttrf)
24569extern void zpttrf(
24570 const ptrdiff_t *n,
24571 double *d,
24572 double *e,
24573 ptrdiff_t *info
24574);
24575
24576/* Source: zpttrs.f */
24577#define zpttrs FORTRAN_WRAPPER(zpttrs)
24578extern void zpttrs(
24579 const char *uplo,
24580 const ptrdiff_t *n,
24581 const ptrdiff_t *nrhs,
24582 const double *d,
24583 const double *e,
24584 double *b,
24585 const ptrdiff_t *ldb,
24586 ptrdiff_t *info
24587);
24588
24589/* Source: zptts2.f */
24590#define zptts2 FORTRAN_WRAPPER(zptts2)
24591extern void zptts2(
24592 const ptrdiff_t *iuplo,
24593 const ptrdiff_t *n,
24594 const ptrdiff_t *nrhs,
24595 const double *d,
24596 const double *e,
24597 double *b,
24598 const ptrdiff_t *ldb
24599);
24600
24601/* Source: zrot.f */
24602#define zrot FORTRAN_WRAPPER(zrot)
24603extern void zrot(
24604 const ptrdiff_t *n,
24605 double *cx,
24606 const ptrdiff_t *incx,
24607 double *cy,
24608 const ptrdiff_t *incy,
24609 const double *c,
24610 const double *s
24611);
24612
24613/* Source: zspcon.f */
24614#define zspcon FORTRAN_WRAPPER(zspcon)
24615extern void zspcon(
24616 const char *uplo,
24617 const ptrdiff_t *n,
24618 const double *ap,
24619 const ptrdiff_t *ipiv,
24620 const double *anorm,
24621 double *rcond,
24622 double *work,
24623 ptrdiff_t *info
24624);
24625
24626/* Source: zspmv.f */
24627#define zspmv FORTRAN_WRAPPER(zspmv)
24628extern void zspmv(
24629 const char *uplo,
24630 const ptrdiff_t *n,
24631 const double *alpha,
24632 const double *ap,
24633 const double *x,
24634 const ptrdiff_t *incx,
24635 const double *beta,
24636 double *y,
24637 const ptrdiff_t *incy
24638);
24639
24640/* Source: zspr.f */
24641#define zspr FORTRAN_WRAPPER(zspr)
24642extern void zspr(
24643 const char *uplo,
24644 const ptrdiff_t *n,
24645 const double *alpha,
24646 const double *x,
24647 const ptrdiff_t *incx,
24648 double *ap
24649);
24650
24651/* Source: zsprfs.f */
24652#define zsprfs FORTRAN_WRAPPER(zsprfs)
24653extern void zsprfs(
24654 const char *uplo,
24655 const ptrdiff_t *n,
24656 const ptrdiff_t *nrhs,
24657 const double *ap,
24658 const double *afp,
24659 const ptrdiff_t *ipiv,
24660 const double *b,
24661 const ptrdiff_t *ldb,
24662 double *x,
24663 const ptrdiff_t *ldx,
24664 double *ferr,
24665 double *berr,
24666 double *work,
24667 double *rwork,
24668 ptrdiff_t *info
24669);
24670
24671/* Source: zspsv.f */
24672#define zspsv FORTRAN_WRAPPER(zspsv)
24673extern void zspsv(
24674 const char *uplo,
24675 const ptrdiff_t *n,
24676 const ptrdiff_t *nrhs,
24677 double *ap,
24678 ptrdiff_t *ipiv,
24679 double *b,
24680 const ptrdiff_t *ldb,
24681 ptrdiff_t *info
24682);
24683
24684/* Source: zspsvx.f */
24685#define zspsvx FORTRAN_WRAPPER(zspsvx)
24686extern void zspsvx(
24687 const char *fact,
24688 const char *uplo,
24689 const ptrdiff_t *n,
24690 const ptrdiff_t *nrhs,
24691 const double *ap,
24692 double *afp,
24693 ptrdiff_t *ipiv,
24694 const double *b,
24695 const ptrdiff_t *ldb,
24696 double *x,
24697 const ptrdiff_t *ldx,
24698 double *rcond,
24699 double *ferr,
24700 double *berr,
24701 double *work,
24702 double *rwork,
24703 ptrdiff_t *info
24704);
24705
24706/* Source: zsptrf.f */
24707#define zsptrf FORTRAN_WRAPPER(zsptrf)
24708extern void zsptrf(
24709 const char *uplo,
24710 const ptrdiff_t *n,
24711 double *ap,
24712 ptrdiff_t *ipiv,
24713 ptrdiff_t *info
24714);
24715
24716/* Source: zsptri.f */
24717#define zsptri FORTRAN_WRAPPER(zsptri)
24718extern void zsptri(
24719 const char *uplo,
24720 const ptrdiff_t *n,
24721 double *ap,
24722 const ptrdiff_t *ipiv,
24723 double *work,
24724 ptrdiff_t *info
24725);
24726
24727/* Source: zsptrs.f */
24728#define zsptrs FORTRAN_WRAPPER(zsptrs)
24729extern void zsptrs(
24730 const char *uplo,
24731 const ptrdiff_t *n,
24732 const ptrdiff_t *nrhs,
24733 const double *ap,
24734 const ptrdiff_t *ipiv,
24735 double *b,
24736 const ptrdiff_t *ldb,
24737 ptrdiff_t *info
24738);
24739
24740/* Source: zstedc.f */
24741#define zstedc FORTRAN_WRAPPER(zstedc)
24742extern void zstedc(
24743 const char *compz,
24744 const ptrdiff_t *n,
24745 double *d,
24746 double *e,
24747 double *z,
24748 const ptrdiff_t *ldz,
24749 double *work,
24750 const ptrdiff_t *lwork,
24751 double *rwork,
24752 const ptrdiff_t *lrwork,
24753 ptrdiff_t *iwork,
24754 const ptrdiff_t *liwork,
24755 ptrdiff_t *info
24756);
24757
24758/* Source: zstegr.f */
24759#define zstegr FORTRAN_WRAPPER(zstegr)
24760extern void zstegr(
24761 const char *jobz,
24762 const char *range,
24763 const ptrdiff_t *n,
24764 double *d,
24765 double *e,
24766 const double *vl,
24767 const double *vu,
24768 const ptrdiff_t *il,
24769 const ptrdiff_t *iu,
24770 const double *abstol,
24771 ptrdiff_t *m,
24772 double *w,
24773 double *z,
24774 const ptrdiff_t *ldz,
24775 ptrdiff_t *isuppz,
24776 double *work,
24777 const ptrdiff_t *lwork,
24778 ptrdiff_t *iwork,
24779 const ptrdiff_t *liwork,
24780 ptrdiff_t *info
24781);
24782
24783/* Source: zstein.f */
24784#define zstein FORTRAN_WRAPPER(zstein)
24785extern void zstein(
24786 const ptrdiff_t *n,
24787 const double *d,
24788 const double *e,
24789 const ptrdiff_t *m,
24790 const double *w,
24791 const ptrdiff_t *iblock,
24792 const ptrdiff_t *isplit,
24793 double *z,
24794 const ptrdiff_t *ldz,
24795 double *work,
24796 ptrdiff_t *iwork,
24797 ptrdiff_t *ifail,
24798 ptrdiff_t *info
24799);
24800
24801/* Source: zstemr.f */
24802#define zstemr FORTRAN_WRAPPER(zstemr)
24803extern void zstemr(
24804 const char *jobz,
24805 const char *range,
24806 const ptrdiff_t *n,
24807 double *d,
24808 double *e,
24809 const double *vl,
24810 const double *vu,
24811 const ptrdiff_t *il,
24812 const ptrdiff_t *iu,
24813 ptrdiff_t *m,
24814 double *w,
24815 double *z,
24816 const ptrdiff_t *ldz,
24817 const ptrdiff_t *nzc,
24818 ptrdiff_t *isuppz,
24819 ptrdiff_t *tryrac,
24820 double *work,
24821 const ptrdiff_t *lwork,
24822 ptrdiff_t *iwork,
24823 const ptrdiff_t *liwork,
24824 ptrdiff_t *info
24825);
24826
24827/* Source: zsteqr.f */
24828#define zsteqr FORTRAN_WRAPPER(zsteqr)
24829extern void zsteqr(
24830 const char *compz,
24831 const ptrdiff_t *n,
24832 double *d,
24833 double *e,
24834 double *z,
24835 const ptrdiff_t *ldz,
24836 double *work,
24837 ptrdiff_t *info
24838);
24839
24840/* Source: zsycon.f */
24841#define zsycon FORTRAN_WRAPPER(zsycon)
24842extern void zsycon(
24843 const char *uplo,
24844 const ptrdiff_t *n,
24845 const double *a,
24846 const ptrdiff_t *lda,
24847 const ptrdiff_t *ipiv,
24848 const double *anorm,
24849 double *rcond,
24850 double *work,
24851 ptrdiff_t *info
24852);
24853
24854/* Source: zsycon_rook.f */
24855#define zsycon_rook FORTRAN_WRAPPER(zsycon_rook)
24856extern void zsycon_rook(
24857 const char *uplo,
24858 const ptrdiff_t *n,
24859 const double *a,
24860 const ptrdiff_t *lda,
24861 const ptrdiff_t *ipiv,
24862 const double *anorm,
24863 double *rcond,
24864 double *work,
24865 ptrdiff_t *info
24866);
24867
24868/* Source: zsyconv.f */
24869#define zsyconv FORTRAN_WRAPPER(zsyconv)
24870extern void zsyconv(
24871 const char *uplo,
24872 const char *way,
24873 const ptrdiff_t *n,
24874 double *a,
24875 const ptrdiff_t *lda,
24876 const ptrdiff_t *ipiv,
24877 double *work,
24878 ptrdiff_t *info
24879);
24880
24881/* Source: zsyequb.f */
24882#define zsyequb FORTRAN_WRAPPER(zsyequb)
24883extern void zsyequb(
24884 char *uplo,
24885 const ptrdiff_t *n,
24886 const double *a,
24887 const ptrdiff_t *lda,
24888 double *s,
24889 double *scond,
24890 double *amax,
24891 double *work,
24892 ptrdiff_t *info
24893);
24894
24895/* Source: zsymv.f */
24896#define zsymv FORTRAN_WRAPPER(zsymv)
24897extern void zsymv(
24898 const char *uplo,
24899 const ptrdiff_t *n,
24900 const double *alpha,
24901 const double *a,
24902 const ptrdiff_t *lda,
24903 const double *x,
24904 const ptrdiff_t *incx,
24905 const double *beta,
24906 double *y,
24907 const ptrdiff_t *incy
24908);
24909
24910/* Source: zsyr.f */
24911#define zsyr FORTRAN_WRAPPER(zsyr)
24912extern void zsyr(
24913 const char *uplo,
24914 const ptrdiff_t *n,
24915 const double *alpha,
24916 const double *x,
24917 const ptrdiff_t *incx,
24918 double *a,
24919 const ptrdiff_t *lda
24920);
24921
24922/* Source: zsyrfs.f */
24923#define zsyrfs FORTRAN_WRAPPER(zsyrfs)
24924extern void zsyrfs(
24925 const char *uplo,
24926 const ptrdiff_t *n,
24927 const ptrdiff_t *nrhs,
24928 const double *a,
24929 const ptrdiff_t *lda,
24930 const double *af,
24931 const ptrdiff_t *ldaf,
24932 const ptrdiff_t *ipiv,
24933 const double *b,
24934 const ptrdiff_t *ldb,
24935 double *x,
24936 const ptrdiff_t *ldx,
24937 double *ferr,
24938 double *berr,
24939 double *work,
24940 double *rwork,
24941 ptrdiff_t *info
24942);
24943
24944/* Source: zsysv.f */
24945#define zsysv FORTRAN_WRAPPER(zsysv)
24946extern void zsysv(
24947 const char *uplo,
24948 const ptrdiff_t *n,
24949 const ptrdiff_t *nrhs,
24950 double *a,
24951 const ptrdiff_t *lda,
24952 ptrdiff_t *ipiv,
24953 double *b,
24954 const ptrdiff_t *ldb,
24955 double *work,
24956 const ptrdiff_t *lwork,
24957 ptrdiff_t *info
24958);
24959
24960/* Source: zsysv_rook.f */
24961#define zsysv_rook FORTRAN_WRAPPER(zsysv_rook)
24962extern void zsysv_rook(
24963 const char *uplo,
24964 const ptrdiff_t *n,
24965 const ptrdiff_t *nrhs,
24966 double *a,
24967 const ptrdiff_t *lda,
24968 ptrdiff_t *ipiv,
24969 double *b,
24970 const ptrdiff_t *ldb,
24971 double *work,
24972 const ptrdiff_t *lwork,
24973 ptrdiff_t *info
24974);
24975
24976/* Source: zsysvx.f */
24977#define zsysvx FORTRAN_WRAPPER(zsysvx)
24978extern void zsysvx(
24979 const char *fact,
24980 const char *uplo,
24981 const ptrdiff_t *n,
24982 const ptrdiff_t *nrhs,
24983 const double *a,
24984 const ptrdiff_t *lda,
24985 double *af,
24986 const ptrdiff_t *ldaf,
24987 ptrdiff_t *ipiv,
24988 const double *b,
24989 const ptrdiff_t *ldb,
24990 double *x,
24991 const ptrdiff_t *ldx,
24992 double *rcond,
24993 double *ferr,
24994 double *berr,
24995 double *work,
24996 const ptrdiff_t *lwork,
24997 double *rwork,
24998 ptrdiff_t *info
24999);
25000
25001/* Source: zsyswapr.f */
25002#define zsyswapr FORTRAN_WRAPPER(zsyswapr)
25003extern void zsyswapr(
25004 const char *uplo,
25005 const ptrdiff_t *n,
25006 double *a,
25007 const ptrdiff_t *lda,
25008 const ptrdiff_t *i1,
25009 const ptrdiff_t *i2
25010);
25011
25012/* Source: zsytf2.f */
25013#define zsytf2 FORTRAN_WRAPPER(zsytf2)
25014extern void zsytf2(
25015 const char *uplo,
25016 const ptrdiff_t *n,
25017 double *a,
25018 const ptrdiff_t *lda,
25019 ptrdiff_t *ipiv,
25020 ptrdiff_t *info
25021);
25022
25023/* Source: zsytf2_rook.f */
25024#define zsytf2_rook FORTRAN_WRAPPER(zsytf2_rook)
25025extern void zsytf2_rook(
25026 const char *uplo,
25027 const ptrdiff_t *n,
25028 double *a,
25029 const ptrdiff_t *lda,
25030 ptrdiff_t *ipiv,
25031 ptrdiff_t *info
25032);
25033
25034/* Source: zsytrf.f */
25035#define zsytrf FORTRAN_WRAPPER(zsytrf)
25036extern void zsytrf(
25037 const char *uplo,
25038 const ptrdiff_t *n,
25039 double *a,
25040 const ptrdiff_t *lda,
25041 ptrdiff_t *ipiv,
25042 double *work,
25043 const ptrdiff_t *lwork,
25044 ptrdiff_t *info
25045);
25046
25047/* Source: zsytrf_rook.f */
25048#define zsytrf_rook FORTRAN_WRAPPER(zsytrf_rook)
25049extern void zsytrf_rook(
25050 const char *uplo,
25051 const ptrdiff_t *n,
25052 double *a,
25053 const ptrdiff_t *lda,
25054 ptrdiff_t *ipiv,
25055 double *work,
25056 const ptrdiff_t *lwork,
25057 ptrdiff_t *info
25058);
25059
25060/* Source: zsytri.f */
25061#define zsytri FORTRAN_WRAPPER(zsytri)
25062extern void zsytri(
25063 const char *uplo,
25064 const ptrdiff_t *n,
25065 double *a,
25066 const ptrdiff_t *lda,
25067 const ptrdiff_t *ipiv,
25068 double *work,
25069 ptrdiff_t *info
25070);
25071
25072/* Source: zsytri2.f */
25073#define zsytri2 FORTRAN_WRAPPER(zsytri2)
25074extern void zsytri2(
25075 const char *uplo,
25076 const ptrdiff_t *n,
25077 double *a,
25078 const ptrdiff_t *lda,
25079 const ptrdiff_t *ipiv,
25080 double *work,
25081 const ptrdiff_t *lwork,
25082 ptrdiff_t *info
25083);
25084
25085/* Source: zsytri2x.f */
25086#define zsytri2x FORTRAN_WRAPPER(zsytri2x)
25087extern void zsytri2x(
25088 const char *uplo,
25089 const ptrdiff_t *n,
25090 double *a,
25091 const ptrdiff_t *lda,
25092 const ptrdiff_t *ipiv,
25093 double *work,
25094 ptrdiff_t *nb,
25095 ptrdiff_t *info
25096);
25097
25098/* Source: zsytri_rook.f */
25099#define zsytri_rook FORTRAN_WRAPPER(zsytri_rook)
25100extern void zsytri_rook(
25101 const char *uplo,
25102 const ptrdiff_t *n,
25103 double *a,
25104 const ptrdiff_t *lda,
25105 const ptrdiff_t *ipiv,
25106 double *work,
25107 ptrdiff_t *info
25108);
25109
25110/* Source: zsytrs.f */
25111#define zsytrs FORTRAN_WRAPPER(zsytrs)
25112extern void zsytrs(
25113 const char *uplo,
25114 const ptrdiff_t *n,
25115 const ptrdiff_t *nrhs,
25116 const double *a,
25117 const ptrdiff_t *lda,
25118 const ptrdiff_t *ipiv,
25119 double *b,
25120 const ptrdiff_t *ldb,
25121 ptrdiff_t *info
25122);
25123
25124/* Source: zsytrs2.f */
25125#define zsytrs2 FORTRAN_WRAPPER(zsytrs2)
25126extern void zsytrs2(
25127 const char *uplo,
25128 const ptrdiff_t *n,
25129 const ptrdiff_t *nrhs,
25130 const double *a,
25131 const ptrdiff_t *lda,
25132 const ptrdiff_t *ipiv,
25133 double *b,
25134 const ptrdiff_t *ldb,
25135 double *work,
25136 ptrdiff_t *info
25137);
25138
25139/* Source: zsytrs_rook.f */
25140#define zsytrs_rook FORTRAN_WRAPPER(zsytrs_rook)
25141extern void zsytrs_rook(
25142 const char *uplo,
25143 const ptrdiff_t *n,
25144 const ptrdiff_t *nrhs,
25145 const double *a,
25146 const ptrdiff_t *lda,
25147 const ptrdiff_t *ipiv,
25148 double *b,
25149 const ptrdiff_t *ldb,
25150 ptrdiff_t *info
25151);
25152
25153/* Source: ztbcon.f */
25154#define ztbcon FORTRAN_WRAPPER(ztbcon)
25155extern void ztbcon(
25156 const char *norm,
25157 const char *uplo,
25158 const char *diag,
25159 const ptrdiff_t *n,
25160 const ptrdiff_t *kd,
25161 const double *ab,
25162 const ptrdiff_t *ldab,
25163 double *rcond,
25164 double *work,
25165 double *rwork,
25166 ptrdiff_t *info
25167);
25168
25169/* Source: ztbrfs.f */
25170#define ztbrfs FORTRAN_WRAPPER(ztbrfs)
25171extern void ztbrfs(
25172 const char *uplo,
25173 const char *trans,
25174 const char *diag,
25175 const ptrdiff_t *n,
25176 const ptrdiff_t *kd,
25177 const ptrdiff_t *nrhs,
25178 const double *ab,
25179 const ptrdiff_t *ldab,
25180 const double *b,
25181 const ptrdiff_t *ldb,
25182 const double *x,
25183 const ptrdiff_t *ldx,
25184 double *ferr,
25185 double *berr,
25186 double *work,
25187 double *rwork,
25188 ptrdiff_t *info
25189);
25190
25191/* Source: ztbtrs.f */
25192#define ztbtrs FORTRAN_WRAPPER(ztbtrs)
25193extern void ztbtrs(
25194 const char *uplo,
25195 const char *trans,
25196 const char *diag,
25197 const ptrdiff_t *n,
25198 const ptrdiff_t *kd,
25199 const ptrdiff_t *nrhs,
25200 const double *ab,
25201 const ptrdiff_t *ldab,
25202 double *b,
25203 const ptrdiff_t *ldb,
25204 ptrdiff_t *info
25205);
25206
25207/* Source: ztfsm.f */
25208#define ztfsm FORTRAN_WRAPPER(ztfsm)
25209extern void ztfsm(
25210 const char *transr,
25211 const char *side,
25212 const char *uplo,
25213 const char *trans,
25214 const char *diag,
25215 const ptrdiff_t *m,
25216 const ptrdiff_t *n,
25217 const double *alpha,
25218 const double *a,
25219 double *b,
25220 const ptrdiff_t *ldb
25221);
25222
25223/* Source: ztftri.f */
25224#define ztftri FORTRAN_WRAPPER(ztftri)
25225extern void ztftri(
25226 const char *transr,
25227 const char *uplo,
25228 const char *diag,
25229 const ptrdiff_t *n,
25230 double *a,
25231 ptrdiff_t *info
25232);
25233
25234/* Source: ztfttp.f */
25235#define ztfttp FORTRAN_WRAPPER(ztfttp)
25236extern void ztfttp(
25237 const char *transr,
25238 const char *uplo,
25239 const ptrdiff_t *n,
25240 const double *arf,
25241 double *ap,
25242 ptrdiff_t *info
25243);
25244
25245/* Source: ztfttr.f */
25246#define ztfttr FORTRAN_WRAPPER(ztfttr)
25247extern void ztfttr(
25248 const char *transr,
25249 const char *uplo,
25250 const ptrdiff_t *n,
25251 const double *arf,
25252 double *a,
25253 const ptrdiff_t *lda,
25254 ptrdiff_t *info
25255);
25256
25257/* Source: ztgevc.f */
25258#define ztgevc FORTRAN_WRAPPER(ztgevc)
25259extern void ztgevc(
25260 const char *side,
25261 const char *howmny,
25262 const ptrdiff_t *select,
25263 const ptrdiff_t *n,
25264 const double *s,
25265 const ptrdiff_t *lds,
25266 const double *p,
25267 const ptrdiff_t *ldp,
25268 double *vl,
25269 const ptrdiff_t *ldvl,
25270 double *vr,
25271 const ptrdiff_t *ldvr,
25272 const ptrdiff_t *mm,
25273 ptrdiff_t *m,
25274 double *work,
25275 double *rwork,
25276 ptrdiff_t *info
25277);
25278
25279/* Source: ztgex2.f */
25280#define ztgex2 FORTRAN_WRAPPER(ztgex2)
25281extern void ztgex2(
25282 const ptrdiff_t *wantq,
25283 const ptrdiff_t *wantz,
25284 const ptrdiff_t *n,
25285 double *a,
25286 const ptrdiff_t *lda,
25287 double *b,
25288 const ptrdiff_t *ldb,
25289 double *q,
25290 const ptrdiff_t *ldq,
25291 double *z,
25292 const ptrdiff_t *ldz,
25293 const ptrdiff_t *j1_,
25294 ptrdiff_t *info
25295);
25296
25297/* Source: ztgexc.f */
25298#define ztgexc FORTRAN_WRAPPER(ztgexc)
25299extern void ztgexc(
25300 const ptrdiff_t *wantq,
25301 const ptrdiff_t *wantz,
25302 const ptrdiff_t *n,
25303 double *a,
25304 const ptrdiff_t *lda,
25305 double *b,
25306 const ptrdiff_t *ldb,
25307 double *q,
25308 const ptrdiff_t *ldq,
25309 double *z,
25310 const ptrdiff_t *ldz,
25311 const ptrdiff_t *ifst,
25312 ptrdiff_t *ilst,
25313 ptrdiff_t *info
25314);
25315
25316/* Source: ztgsen.f */
25317#define ztgsen FORTRAN_WRAPPER(ztgsen)
25318extern void ztgsen(
25319 const ptrdiff_t *ijob,
25320 const ptrdiff_t *wantq,
25321 const ptrdiff_t *wantz,
25322 const ptrdiff_t *select,
25323 const ptrdiff_t *n,
25324 double *a,
25325 const ptrdiff_t *lda,
25326 double *b,
25327 const ptrdiff_t *ldb,
25328 double *alpha,
25329 double *beta,
25330 double *q,
25331 const ptrdiff_t *ldq,
25332 double *z,
25333 const ptrdiff_t *ldz,
25334 ptrdiff_t *m,
25335 double *pl,
25336 double *pr,
25337 double *dif,
25338 double *work,
25339 const ptrdiff_t *lwork,
25340 ptrdiff_t *iwork,
25341 const ptrdiff_t *liwork,
25342 ptrdiff_t *info
25343);
25344
25345/* Source: ztgsja.f */
25346#define ztgsja FORTRAN_WRAPPER(ztgsja)
25347extern void ztgsja(
25348 const char *jobu,
25349 const char *jobv,
25350 const char *jobq,
25351 const ptrdiff_t *m,
25352 const ptrdiff_t *p,
25353 const ptrdiff_t *n,
25354 const ptrdiff_t *k,
25355 const ptrdiff_t *l,
25356 double *a,
25357 const ptrdiff_t *lda,
25358 double *b,
25359 const ptrdiff_t *ldb,
25360 const double *tola,
25361 const double *tolb,
25362 double *alpha,
25363 double *beta,
25364 double *u,
25365 const ptrdiff_t *ldu,
25366 double *v,
25367 const ptrdiff_t *ldv,
25368 double *q,
25369 const ptrdiff_t *ldq,
25370 double *work,
25371 ptrdiff_t *ncycle,
25372 ptrdiff_t *info
25373);
25374
25375/* Source: ztgsna.f */
25376#define ztgsna FORTRAN_WRAPPER(ztgsna)
25377extern void ztgsna(
25378 const char *job,
25379 const char *howmny,
25380 const ptrdiff_t *select,
25381 const ptrdiff_t *n,
25382 const double *a,
25383 const ptrdiff_t *lda,
25384 const double *b,
25385 const ptrdiff_t *ldb,
25386 const double *vl,
25387 const ptrdiff_t *ldvl,
25388 const double *vr,
25389 const ptrdiff_t *ldvr,
25390 double *s,
25391 double *dif,
25392 const ptrdiff_t *mm,
25393 ptrdiff_t *m,
25394 double *work,
25395 const ptrdiff_t *lwork,
25396 ptrdiff_t *iwork,
25397 ptrdiff_t *info
25398);
25399
25400/* Source: ztgsy2.f */
25401#define ztgsy2 FORTRAN_WRAPPER(ztgsy2)
25402extern void ztgsy2(
25403 const char *trans,
25404 const ptrdiff_t *ijob,
25405 const ptrdiff_t *m,
25406 const ptrdiff_t *n,
25407 const double *a,
25408 const ptrdiff_t *lda,
25409 const double *b,
25410 const ptrdiff_t *ldb,
25411 double *c,
25412 const ptrdiff_t *ldc,
25413 const double *d,
25414 const ptrdiff_t *ldd,
25415 const double *e,
25416 const ptrdiff_t *lde,
25417 double *f,
25418 const ptrdiff_t *ldf,
25419 double *scale,
25420 double *rdsum,
25421 double *rdscal,
25422 ptrdiff_t *info
25423);
25424
25425/* Source: ztgsyl.f */
25426#define ztgsyl FORTRAN_WRAPPER(ztgsyl)
25427extern void ztgsyl(
25428 const char *trans,
25429 const ptrdiff_t *ijob,
25430 const ptrdiff_t *m,
25431 const ptrdiff_t *n,
25432 const double *a,
25433 const ptrdiff_t *lda,
25434 const double *b,
25435 const ptrdiff_t *ldb,
25436 double *c,
25437 const ptrdiff_t *ldc,
25438 const double *d,
25439 const ptrdiff_t *ldd,
25440 const double *e,
25441 const ptrdiff_t *lde,
25442 double *f,
25443 const ptrdiff_t *ldf,
25444 double *scale,
25445 double *dif,
25446 double *work,
25447 const ptrdiff_t *lwork,
25448 ptrdiff_t *iwork,
25449 ptrdiff_t *info
25450);
25451
25452/* Source: ztpcon.f */
25453#define ztpcon FORTRAN_WRAPPER(ztpcon)
25454extern void ztpcon(
25455 const char *norm,
25456 const char *uplo,
25457 const char *diag,
25458 const ptrdiff_t *n,
25459 const double *ap,
25460 double *rcond,
25461 double *work,
25462 double *rwork,
25463 ptrdiff_t *info
25464);
25465
25466/* Source: ztpmqrt.f */
25467#define ztpmqrt FORTRAN_WRAPPER(ztpmqrt)
25468extern void ztpmqrt(
25469 const char *side,
25470 const char *trans,
25471 const ptrdiff_t *m,
25472 const ptrdiff_t *n,
25473 const ptrdiff_t *k,
25474 const ptrdiff_t *l,
25475 const ptrdiff_t *nb,
25476 const double *v,
25477 const ptrdiff_t *ldv,
25478 const double *t,
25479 const ptrdiff_t *ldt,
25480 double *a,
25481 const ptrdiff_t *lda,
25482 double *b,
25483 const ptrdiff_t *ldb,
25484 double *work,
25485 ptrdiff_t *info
25486);
25487
25488/* Source: ztpqrt.f */
25489#define ztpqrt FORTRAN_WRAPPER(ztpqrt)
25490extern void ztpqrt(
25491 const ptrdiff_t *m,
25492 const ptrdiff_t *n,
25493 const ptrdiff_t *l,
25494 const ptrdiff_t *nb,
25495 const double *a,
25496 const ptrdiff_t *lda,
25497 const double *b,
25498 const ptrdiff_t *ldb,
25499 const double *t,
25500 const ptrdiff_t *ldt,
25501 const double *work,
25502 ptrdiff_t *info
25503);
25504
25505/* Source: ztpqrt2.f */
25506#define ztpqrt2 FORTRAN_WRAPPER(ztpqrt2)
25507extern void ztpqrt2(
25508 const ptrdiff_t *m,
25509 const ptrdiff_t *n,
25510 const ptrdiff_t *l,
25511 double *a,
25512 const ptrdiff_t *lda,
25513 double *b,
25514 const ptrdiff_t *ldb,
25515 double *t,
25516 const ptrdiff_t *ldt,
25517 ptrdiff_t *info
25518);
25519
25520/* Source: ztprfb.f */
25521#define ztprfb FORTRAN_WRAPPER(ztprfb)
25522extern void ztprfb(
25523 const char *side,
25524 const char *trans,
25525 const char *direct,
25526 const char *storev,
25527 const ptrdiff_t *m,
25528 const ptrdiff_t *n,
25529 const ptrdiff_t *k,
25530 const ptrdiff_t *l,
25531 const double *v,
25532 const ptrdiff_t *ldv,
25533 const double *t,
25534 const ptrdiff_t *ldt,
25535 double *a,
25536 const ptrdiff_t *lda,
25537 double *b,
25538 const ptrdiff_t *ldb,
25539 double *work,
25540 const ptrdiff_t *ldwork
25541);
25542
25543/* Source: ztprfs.f */
25544#define ztprfs FORTRAN_WRAPPER(ztprfs)
25545extern void ztprfs(
25546 const char *uplo,
25547 const char *trans,
25548 const char *diag,
25549 const ptrdiff_t *n,
25550 const ptrdiff_t *nrhs,
25551 const double *ap,
25552 const double *b,
25553 const ptrdiff_t *ldb,
25554 const double *x,
25555 const ptrdiff_t *ldx,
25556 double *ferr,
25557 double *berr,
25558 double *work,
25559 double *rwork,
25560 ptrdiff_t *info
25561);
25562
25563/* Source: ztptri.f */
25564#define ztptri FORTRAN_WRAPPER(ztptri)
25565extern void ztptri(
25566 const char *uplo,
25567 const char *diag,
25568 const ptrdiff_t *n,
25569 double *ap,
25570 ptrdiff_t *info
25571);
25572
25573/* Source: ztptrs.f */
25574#define ztptrs FORTRAN_WRAPPER(ztptrs)
25575extern void ztptrs(
25576 const char *uplo,
25577 const char *trans,
25578 const char *diag,
25579 const ptrdiff_t *n,
25580 const ptrdiff_t *nrhs,
25581 const double *ap,
25582 double *b,
25583 const ptrdiff_t *ldb,
25584 ptrdiff_t *info
25585);
25586
25587/* Source: ztpttf.f */
25588#define ztpttf FORTRAN_WRAPPER(ztpttf)
25589extern void ztpttf(
25590 const char *transr,
25591 const char *uplo,
25592 const ptrdiff_t *n,
25593 const double *ap,
25594 double *arf,
25595 ptrdiff_t *info
25596);
25597
25598/* Source: ztpttr.f */
25599#define ztpttr FORTRAN_WRAPPER(ztpttr)
25600extern void ztpttr(
25601 const char *uplo,
25602 const ptrdiff_t *n,
25603 const double *ap,
25604 double *a,
25605 const ptrdiff_t *lda,
25606 ptrdiff_t *info
25607);
25608
25609/* Source: ztrcon.f */
25610#define ztrcon FORTRAN_WRAPPER(ztrcon)
25611extern void ztrcon(
25612 const char *norm,
25613 const char *uplo,
25614 const char *diag,
25615 const ptrdiff_t *n,
25616 const double *a,
25617 const ptrdiff_t *lda,
25618 double *rcond,
25619 double *work,
25620 double *rwork,
25621 ptrdiff_t *info
25622);
25623
25624/* Source: ztrevc.f */
25625#define ztrevc FORTRAN_WRAPPER(ztrevc)
25626extern void ztrevc(
25627 const char *side,
25628 const char *howmny,
25629 const ptrdiff_t *select,
25630 const ptrdiff_t *n,
25631 double *t,
25632 const ptrdiff_t *ldt,
25633 double *vl,
25634 const ptrdiff_t *ldvl,
25635 double *vr,
25636 const ptrdiff_t *ldvr,
25637 const ptrdiff_t *mm,
25638 ptrdiff_t *m,
25639 double *work,
25640 double *rwork,
25641 ptrdiff_t *info
25642);
25643
25644/* Source: ztrexc.f */
25645#define ztrexc FORTRAN_WRAPPER(ztrexc)
25646extern void ztrexc(
25647 const char *compq,
25648 const ptrdiff_t *n,
25649 double *t,
25650 const ptrdiff_t *ldt,
25651 double *q,
25652 const ptrdiff_t *ldq,
25653 const ptrdiff_t *ifst,
25654 const ptrdiff_t *ilst,
25655 ptrdiff_t *info
25656);
25657
25658/* Source: ztrrfs.f */
25659#define ztrrfs FORTRAN_WRAPPER(ztrrfs)
25660extern void ztrrfs(
25661 const char *uplo,
25662 const char *trans,
25663 const char *diag,
25664 const ptrdiff_t *n,
25665 const ptrdiff_t *nrhs,
25666 const double *a,
25667 const ptrdiff_t *lda,
25668 const double *b,
25669 const ptrdiff_t *ldb,
25670 const double *x,
25671 const ptrdiff_t *ldx,
25672 double *ferr,
25673 double *berr,
25674 double *work,
25675 double *rwork,
25676 ptrdiff_t *info
25677);
25678
25679/* Source: ztrsen.f */
25680#define ztrsen FORTRAN_WRAPPER(ztrsen)
25681extern void ztrsen(
25682 const char *job,
25683 const char *compq,
25684 const ptrdiff_t *select,
25685 const ptrdiff_t *n,
25686 double *t,
25687 const ptrdiff_t *ldt,
25688 double *q,
25689 const ptrdiff_t *ldq,
25690 double *w,
25691 ptrdiff_t *m,
25692 double *s,
25693 double *sep,
25694 double *work,
25695 const ptrdiff_t *lwork,
25696 ptrdiff_t *info
25697);
25698
25699/* Source: ztrsna.f */
25700#define ztrsna FORTRAN_WRAPPER(ztrsna)
25701extern void ztrsna(
25702 const char *job,
25703 const char *howmny,
25704 const ptrdiff_t *select,
25705 const ptrdiff_t *n,
25706 const double *t,
25707 const ptrdiff_t *ldt,
25708 const double *vl,
25709 const ptrdiff_t *ldvl,
25710 const double *vr,
25711 const ptrdiff_t *ldvr,
25712 double *s,
25713 double *sep,
25714 const ptrdiff_t *mm,
25715 ptrdiff_t *m,
25716 double *work,
25717 const ptrdiff_t *ldwork,
25718 double *rwork,
25719 ptrdiff_t *info
25720);
25721
25722/* Source: ztrsyl.f */
25723#define ztrsyl FORTRAN_WRAPPER(ztrsyl)
25724extern void ztrsyl(
25725 const char *trana,
25726 const char *tranb,
25727 const ptrdiff_t *isgn,
25728 const ptrdiff_t *m,
25729 const ptrdiff_t *n,
25730 const double *a,
25731 const ptrdiff_t *lda,
25732 const double *b,
25733 const ptrdiff_t *ldb,
25734 double *c,
25735 const ptrdiff_t *ldc,
25736 double *scale,
25737 ptrdiff_t *info
25738);
25739
25740/* Source: ztrti2.f */
25741#define ztrti2 FORTRAN_WRAPPER(ztrti2)
25742extern void ztrti2(
25743 const char *uplo,
25744 const char *diag,
25745 const ptrdiff_t *n,
25746 double *a,
25747 const ptrdiff_t *lda,
25748 ptrdiff_t *info
25749);
25750
25751/* Source: ztrtri.f */
25752#define ztrtri FORTRAN_WRAPPER(ztrtri)
25753extern void ztrtri(
25754 const char *uplo,
25755 const char *diag,
25756 const ptrdiff_t *n,
25757 double *a,
25758 const ptrdiff_t *lda,
25759 ptrdiff_t *info
25760);
25761
25762/* Source: ztrtrs.f */
25763#define ztrtrs FORTRAN_WRAPPER(ztrtrs)
25764extern void ztrtrs(
25765 const char *uplo,
25766 const char *trans,
25767 const char *diag,
25768 const ptrdiff_t *n,
25769 const ptrdiff_t *nrhs,
25770 const double *a,
25771 const ptrdiff_t *lda,
25772 double *b,
25773 const ptrdiff_t *ldb,
25774 ptrdiff_t *info
25775);
25776
25777/* Source: ztrttf.f */
25778#define ztrttf FORTRAN_WRAPPER(ztrttf)
25779extern void ztrttf(
25780 const char *transr,
25781 const char *uplo,
25782 const ptrdiff_t *n,
25783 const double *a,
25784 const ptrdiff_t *lda,
25785 double *arf,
25786 ptrdiff_t *info
25787);
25788
25789/* Source: ztrttp.f */
25790#define ztrttp FORTRAN_WRAPPER(ztrttp)
25791extern void ztrttp(
25792 const char *uplo,
25793 const ptrdiff_t *n,
25794 const double *a,
25795 const ptrdiff_t *lda,
25796 double *ap,
25797 ptrdiff_t *info
25798);
25799
25800/* Source: ztzrqf.f */
25801#define ztzrqf FORTRAN_WRAPPER(ztzrqf)
25802extern void ztzrqf(
25803 const ptrdiff_t *m,
25804 const ptrdiff_t *n,
25805 double *a,
25806 const ptrdiff_t *lda,
25807 double *tau,
25808 ptrdiff_t *info
25809);
25810
25811/* Source: ztzrzf.f */
25812#define ztzrzf FORTRAN_WRAPPER(ztzrzf)
25813extern void ztzrzf(
25814 const ptrdiff_t *m,
25815 const ptrdiff_t *n,
25816 double *a,
25817 const ptrdiff_t *lda,
25818 double *tau,
25819 double *work,
25820 const ptrdiff_t *lwork,
25821 ptrdiff_t *info
25822);
25823
25824/* Source: zunbdb.f */
25825#define zunbdb FORTRAN_WRAPPER(zunbdb)
25826extern void zunbdb(
25827 const char *trans,
25828 const char *signs,
25829 const ptrdiff_t *m,
25830 const ptrdiff_t *p,
25831 const ptrdiff_t *q,
25832 double *x11,
25833 const ptrdiff_t *ldx11,
25834 double *x12,
25835 const ptrdiff_t *ldx12,
25836 double *x21,
25837 const ptrdiff_t *ldx21,
25838 double *x22,
25839 const ptrdiff_t *ldx22,
25840 double *theta,
25841 double *phi,
25842 double *taup1,
25843 double *taup2,
25844 double *tauq1,
25845 double *tauq2,
25846 double *work,
25847 const ptrdiff_t *lwork,
25848 ptrdiff_t *info
25849);
25850
25851/* Source: zunbdb1.f */
25852#define zunbdb1 FORTRAN_WRAPPER(zunbdb1)
25853extern void zunbdb1(
25854 const ptrdiff_t *m,
25855 const ptrdiff_t *p,
25856 const ptrdiff_t *q,
25857 double *x11,
25858 const ptrdiff_t *ldx11,
25859 double *x21,
25860 const ptrdiff_t *ldx21,
25861 double *theta,
25862 double *phi,
25863 double *taup1,
25864 double *taup2,
25865 double *tauq1,
25866 double *work,
25867 const ptrdiff_t *lwork,
25868 ptrdiff_t *info
25869);
25870
25871/* Source: zunbdb2.f */
25872#define zunbdb2 FORTRAN_WRAPPER(zunbdb2)
25873extern void zunbdb2(
25874 const ptrdiff_t *m,
25875 const ptrdiff_t *p,
25876 const ptrdiff_t *q,
25877 double *x11,
25878 const ptrdiff_t *ldx11,
25879 double *x21,
25880 const ptrdiff_t *ldx21,
25881 double *theta,
25882 double *phi,
25883 double *taup1,
25884 double *taup2,
25885 double *tauq1,
25886 double *work,
25887 const ptrdiff_t *lwork,
25888 ptrdiff_t *info
25889);
25890
25891/* Source: zunbdb3.f */
25892#define zunbdb3 FORTRAN_WRAPPER(zunbdb3)
25893extern void zunbdb3(
25894 const ptrdiff_t *m,
25895 const ptrdiff_t *p,
25896 const ptrdiff_t *q,
25897 double *x11,
25898 const ptrdiff_t *ldx11,
25899 double *x21,
25900 const ptrdiff_t *ldx21,
25901 double *theta,
25902 double *phi,
25903 double *taup1,
25904 double *taup2,
25905 double *tauq1,
25906 double *work,
25907 const ptrdiff_t *lwork,
25908 ptrdiff_t *info
25909);
25910
25911/* Source: zunbdb4.f */
25912#define zunbdb4 FORTRAN_WRAPPER(zunbdb4)
25913extern void zunbdb4(
25914 const ptrdiff_t *m,
25915 const ptrdiff_t *p,
25916 const ptrdiff_t *q,
25917 double *x11,
25918 const ptrdiff_t *ldx11,
25919 double *x21,
25920 const ptrdiff_t *ldx21,
25921 double *theta,
25922 double *phi,
25923 double *taup1,
25924 double *taup2,
25925 double *tauq1,
25926 double *phantom,
25927 double *work,
25928 const ptrdiff_t *lwork,
25929 ptrdiff_t *info
25930);
25931
25932/* Source: zunbdb5.f */
25933#define zunbdb5 FORTRAN_WRAPPER(zunbdb5)
25934extern void zunbdb5(
25935 const ptrdiff_t *m1,
25936 const ptrdiff_t *m2,
25937 const ptrdiff_t *n,
25938 double *x1,
25939 const ptrdiff_t *incx1,
25940 double *x2,
25941 const ptrdiff_t *incx2,
25942 double *q1,
25943 const ptrdiff_t *ldq1,
25944 double *q2,
25945 const ptrdiff_t *ldq2,
25946 double *work,
25947 const ptrdiff_t *lwork,
25948 ptrdiff_t *info
25949);
25950
25951/* Source: zunbdb6.f */
25952#define zunbdb6 FORTRAN_WRAPPER(zunbdb6)
25953extern void zunbdb6(
25954 const ptrdiff_t *m1,
25955 const ptrdiff_t *m2,
25956 const ptrdiff_t *n,
25957 double *x1,
25958 const ptrdiff_t *incx1,
25959 double *x2,
25960 const ptrdiff_t *incx2,
25961 double *q1,
25962 const ptrdiff_t *ldq1,
25963 double *q2,
25964 const ptrdiff_t *ldq2,
25965 double *work,
25966 const ptrdiff_t *lwork,
25967 ptrdiff_t *info
25968);
25969
25970/* Source: zuncsd.f */
25971#define zuncsd FORTRAN_WRAPPER(zuncsd)
25972extern void zuncsd(
25973 const char *jobu1,
25974 const char *jobu2,
25975 const char *jobv1t,
25976 const char *jobv2t,
25977 const char *trans,
25978 const char *signs,
25979 const ptrdiff_t *m,
25980 const ptrdiff_t *p,
25981 const ptrdiff_t *q,
25982 double *x11,
25983 const ptrdiff_t *ldx11,
25984 double *x12,
25985 const ptrdiff_t *ldx12,
25986 double *x21,
25987 const ptrdiff_t *ldx21,
25988 double *x22,
25989 const ptrdiff_t *ldx22,
25990 double *theta,
25991 double *u1,
25992 const ptrdiff_t *ldu1,
25993 double *u2,
25994 const ptrdiff_t *ldu2,
25995 double *v1t,
25996 const ptrdiff_t *ldv1t,
25997 double *v2t,
25998 const ptrdiff_t *ldv2t,
25999 double *work,
26000 const ptrdiff_t *lwork,
26001 double *rwork,
26002 const ptrdiff_t *lrwork,
26003 ptrdiff_t *iwork,
26004 ptrdiff_t *info
26005);
26006
26007/* Source: zuncsd2by1.f */
26008#define zuncsd2by1 FORTRAN_WRAPPER(zuncsd2by1)
26009extern void zuncsd2by1(
26010 const char *jobu1,
26011 const char *jobu2,
26012 const char *jobv1t,
26013 const ptrdiff_t *m,
26014 const ptrdiff_t *p,
26015 const ptrdiff_t *q,
26016 double *x11,
26017 const ptrdiff_t *ldx11,
26018 double *x21,
26019 const ptrdiff_t *ldx21,
26020 double *theta,
26021 double *u1,
26022 const ptrdiff_t *ldu1,
26023 double *u2,
26024 const ptrdiff_t *ldu2,
26025 double *v1t,
26026 const ptrdiff_t *ldv1t,
26027 double *work,
26028 const ptrdiff_t *lwork,
26029 double *rwork,
26030 const ptrdiff_t *lrwork,
26031 ptrdiff_t *iwork,
26032 ptrdiff_t *info
26033);
26034
26035/* Source: zung2l.f */
26036#define zung2l FORTRAN_WRAPPER(zung2l)
26037extern void zung2l(
26038 const ptrdiff_t *m,
26039 const ptrdiff_t *n,
26040 const ptrdiff_t *k,
26041 double *a,
26042 const ptrdiff_t *lda,
26043 const double *tau,
26044 double *work,
26045 ptrdiff_t *info
26046);
26047
26048/* Source: zung2r.f */
26049#define zung2r FORTRAN_WRAPPER(zung2r)
26050extern void zung2r(
26051 const ptrdiff_t *m,
26052 const ptrdiff_t *n,
26053 const ptrdiff_t *k,
26054 double *a,
26055 const ptrdiff_t *lda,
26056 const double *tau,
26057 double *work,
26058 ptrdiff_t *info
26059);
26060
26061/* Source: zungbr.f */
26062#define zungbr FORTRAN_WRAPPER(zungbr)
26063extern void zungbr(
26064 const char *vect,
26065 const ptrdiff_t *m,
26066 const ptrdiff_t *n,
26067 const ptrdiff_t *k,
26068 double *a,
26069 const ptrdiff_t *lda,
26070 const double *tau,
26071 double *work,
26072 const ptrdiff_t *lwork,
26073 ptrdiff_t *info
26074);
26075
26076/* Source: zunghr.f */
26077#define zunghr FORTRAN_WRAPPER(zunghr)
26078extern void zunghr(
26079 const ptrdiff_t *n,
26080 const ptrdiff_t *ilo,
26081 const ptrdiff_t *ihi,
26082 double *a,
26083 const ptrdiff_t *lda,
26084 const double *tau,
26085 double *work,
26086 const ptrdiff_t *lwork,
26087 ptrdiff_t *info
26088);
26089
26090/* Source: zungl2.f */
26091#define zungl2 FORTRAN_WRAPPER(zungl2)
26092extern void zungl2(
26093 const ptrdiff_t *m,
26094 const ptrdiff_t *n,
26095 const ptrdiff_t *k,
26096 double *a,
26097 const ptrdiff_t *lda,
26098 const double *tau,
26099 double *work,
26100 ptrdiff_t *info
26101);
26102
26103/* Source: zunglq.f */
26104#define zunglq FORTRAN_WRAPPER(zunglq)
26105extern void zunglq(
26106 const ptrdiff_t *m,
26107 const ptrdiff_t *n,
26108 const ptrdiff_t *k,
26109 double *a,
26110 const ptrdiff_t *lda,
26111 const double *tau,
26112 double *work,
26113 const ptrdiff_t *lwork,
26114 ptrdiff_t *info
26115);
26116
26117/* Source: zungql.f */
26118#define zungql FORTRAN_WRAPPER(zungql)
26119extern void zungql(
26120 const ptrdiff_t *m,
26121 const ptrdiff_t *n,
26122 const ptrdiff_t *k,
26123 double *a,
26124 const ptrdiff_t *lda,
26125 const double *tau,
26126 double *work,
26127 const ptrdiff_t *lwork,
26128 ptrdiff_t *info
26129);
26130
26131/* Source: zungqr.f */
26132#define zungqr FORTRAN_WRAPPER(zungqr)
26133extern void zungqr(
26134 const ptrdiff_t *m,
26135 const ptrdiff_t *n,
26136 const ptrdiff_t *k,
26137 double *a,
26138 const ptrdiff_t *lda,
26139 const double *tau,
26140 double *work,
26141 const ptrdiff_t *lwork,
26142 ptrdiff_t *info
26143);
26144
26145/* Source: zungr2.f */
26146#define zungr2 FORTRAN_WRAPPER(zungr2)
26147extern void zungr2(
26148 const ptrdiff_t *m,
26149 const ptrdiff_t *n,
26150 const ptrdiff_t *k,
26151 double *a,
26152 const ptrdiff_t *lda,
26153 const double *tau,
26154 double *work,
26155 ptrdiff_t *info
26156);
26157
26158/* Source: zungrq.f */
26159#define zungrq FORTRAN_WRAPPER(zungrq)
26160extern void zungrq(
26161 const ptrdiff_t *m,
26162 const ptrdiff_t *n,
26163 const ptrdiff_t *k,
26164 double *a,
26165 const ptrdiff_t *lda,
26166 const double *tau,
26167 double *work,
26168 const ptrdiff_t *lwork,
26169 ptrdiff_t *info
26170);
26171
26172/* Source: zungtr.f */
26173#define zungtr FORTRAN_WRAPPER(zungtr)
26174extern void zungtr(
26175 const char *uplo,
26176 const ptrdiff_t *n,
26177 double *a,
26178 const ptrdiff_t *lda,
26179 const double *tau,
26180 double *work,
26181 const ptrdiff_t *lwork,
26182 ptrdiff_t *info
26183);
26184
26185/* Source: zunm2l.f */
26186#define zunm2l FORTRAN_WRAPPER(zunm2l)
26187extern void zunm2l(
26188 const char *side,
26189 const char *trans,
26190 const ptrdiff_t *m,
26191 const ptrdiff_t *n,
26192 const ptrdiff_t *k,
26193 const double *a,
26194 const ptrdiff_t *lda,
26195 const double *tau,
26196 double *c,
26197 const ptrdiff_t *ldc,
26198 double *work,
26199 ptrdiff_t *info
26200);
26201
26202/* Source: zunm2r.f */
26203#define zunm2r FORTRAN_WRAPPER(zunm2r)
26204extern void zunm2r(
26205 const char *side,
26206 const char *trans,
26207 const ptrdiff_t *m,
26208 const ptrdiff_t *n,
26209 const ptrdiff_t *k,
26210 const double *a,
26211 const ptrdiff_t *lda,
26212 const double *tau,
26213 double *c,
26214 const ptrdiff_t *ldc,
26215 double *work,
26216 ptrdiff_t *info
26217);
26218
26219/* Source: zunmbr.f */
26220#define zunmbr FORTRAN_WRAPPER(zunmbr)
26221extern void zunmbr(
26222 const char *vect,
26223 const char *side,
26224 const char *trans,
26225 const ptrdiff_t *m,
26226 const ptrdiff_t *n,
26227 const ptrdiff_t *k,
26228 const double *a,
26229 const ptrdiff_t *lda,
26230 const double *tau,
26231 double *c,
26232 const ptrdiff_t *ldc,
26233 double *work,
26234 const ptrdiff_t *lwork,
26235 ptrdiff_t *info
26236);
26237
26238/* Source: zunmhr.f */
26239#define zunmhr FORTRAN_WRAPPER(zunmhr)
26240extern void zunmhr(
26241 const char *side,
26242 const char *trans,
26243 const ptrdiff_t *m,
26244 const ptrdiff_t *n,
26245 const ptrdiff_t *ilo,
26246 const ptrdiff_t *ihi,
26247 const double *a,
26248 const ptrdiff_t *lda,
26249 const double *tau,
26250 double *c,
26251 const ptrdiff_t *ldc,
26252 double *work,
26253 const ptrdiff_t *lwork,
26254 ptrdiff_t *info
26255);
26256
26257/* Source: zunml2.f */
26258#define zunml2 FORTRAN_WRAPPER(zunml2)
26259extern void zunml2(
26260 const char *side,
26261 const char *trans,
26262 const ptrdiff_t *m,
26263 const ptrdiff_t *n,
26264 const ptrdiff_t *k,
26265 const double *a,
26266 const ptrdiff_t *lda,
26267 const double *tau,
26268 double *c,
26269 const ptrdiff_t *ldc,
26270 double *work,
26271 ptrdiff_t *info
26272);
26273
26274/* Source: zunmlq.f */
26275#define zunmlq FORTRAN_WRAPPER(zunmlq)
26276extern void zunmlq(
26277 const char *side,
26278 const char *trans,
26279 const ptrdiff_t *m,
26280 const ptrdiff_t *n,
26281 const ptrdiff_t *k,
26282 const double *a,
26283 const ptrdiff_t *lda,
26284 const double *tau,
26285 double *c,
26286 const ptrdiff_t *ldc,
26287 double *work,
26288 const ptrdiff_t *lwork,
26289 ptrdiff_t *info
26290);
26291
26292/* Source: zunmql.f */
26293#define zunmql FORTRAN_WRAPPER(zunmql)
26294extern void zunmql(
26295 const char *side,
26296 const char *trans,
26297 const ptrdiff_t *m,
26298 const ptrdiff_t *n,
26299 const ptrdiff_t *k,
26300 const double *a,
26301 const ptrdiff_t *lda,
26302 const double *tau,
26303 double *c,
26304 const ptrdiff_t *ldc,
26305 double *work,
26306 const ptrdiff_t *lwork,
26307 ptrdiff_t *info
26308);
26309
26310/* Source: zunmqr.f */
26311#define zunmqr FORTRAN_WRAPPER(zunmqr)
26312extern void zunmqr(
26313 const char *side,
26314 const char *trans,
26315 const ptrdiff_t *m,
26316 const ptrdiff_t *n,
26317 const ptrdiff_t *k,
26318 const double *a,
26319 const ptrdiff_t *lda,
26320 const double *tau,
26321 double *c,
26322 const ptrdiff_t *ldc,
26323 double *work,
26324 const ptrdiff_t *lwork,
26325 ptrdiff_t *info
26326);
26327
26328/* Source: zunmr2.f */
26329#define zunmr2 FORTRAN_WRAPPER(zunmr2)
26330extern void zunmr2(
26331 const char *side,
26332 const char *trans,
26333 const ptrdiff_t *m,
26334 const ptrdiff_t *n,
26335 const ptrdiff_t *k,
26336 const double *a,
26337 const ptrdiff_t *lda,
26338 const double *tau,
26339 double *c,
26340 const ptrdiff_t *ldc,
26341 double *work,
26342 ptrdiff_t *info
26343);
26344
26345/* Source: zunmr3.f */
26346#define zunmr3 FORTRAN_WRAPPER(zunmr3)
26347extern void zunmr3(
26348 const char *side,
26349 const char *trans,
26350 const ptrdiff_t *m,
26351 const ptrdiff_t *n,
26352 const ptrdiff_t *k,
26353 const ptrdiff_t *l,
26354 const double *a,
26355 const ptrdiff_t *lda,
26356 const double *tau,
26357 double *c,
26358 const ptrdiff_t *ldc,
26359 double *work,
26360 ptrdiff_t *info
26361);
26362
26363/* Source: zunmrq.f */
26364#define zunmrq FORTRAN_WRAPPER(zunmrq)
26365extern void zunmrq(
26366 const char *side,
26367 const char *trans,
26368 const ptrdiff_t *m,
26369 const ptrdiff_t *n,
26370 const ptrdiff_t *k,
26371 const double *a,
26372 const ptrdiff_t *lda,
26373 const double *tau,
26374 double *c,
26375 const ptrdiff_t *ldc,
26376 double *work,
26377 const ptrdiff_t *lwork,
26378 ptrdiff_t *info
26379);
26380
26381/* Source: zunmrz.f */
26382#define zunmrz FORTRAN_WRAPPER(zunmrz)
26383extern void zunmrz(
26384 const char *side,
26385 const char *trans,
26386 const ptrdiff_t *m,
26387 const ptrdiff_t *n,
26388 const ptrdiff_t *k,
26389 const ptrdiff_t *l,
26390 const double *a,
26391 const ptrdiff_t *lda,
26392 const double *tau,
26393 double *c,
26394 const ptrdiff_t *ldc,
26395 double *work,
26396 const ptrdiff_t *lwork,
26397 ptrdiff_t *info
26398);
26399
26400/* Source: zunmtr.f */
26401#define zunmtr FORTRAN_WRAPPER(zunmtr)
26402extern void zunmtr(
26403 const char *side,
26404 const char *uplo,
26405 const char *trans,
26406 const ptrdiff_t *m,
26407 const ptrdiff_t *n,
26408 const double *a,
26409 const ptrdiff_t *lda,
26410 const double *tau,
26411 double *c,
26412 const ptrdiff_t *ldc,
26413 double *work,
26414 const ptrdiff_t *lwork,
26415 ptrdiff_t *info
26416);
26417
26418/* Source: zupgtr.f */
26419#define zupgtr FORTRAN_WRAPPER(zupgtr)
26420extern void zupgtr(
26421 const char *uplo,
26422 const ptrdiff_t *n,
26423 const double *ap,
26424 const double *tau,
26425 double *q,
26426 const ptrdiff_t *ldq,
26427 double *work,
26428 ptrdiff_t *info
26429);
26430
26431/* Source: zupmtr.f */
26432#define zupmtr FORTRAN_WRAPPER(zupmtr)
26433extern void zupmtr(
26434 const char *side,
26435 const char *uplo,
26436 const char *trans,
26437 const ptrdiff_t *m,
26438 const ptrdiff_t *n,
26439 const double *ap,
26440 const double *tau,
26441 double *c,
26442 const ptrdiff_t *ldc,
26443 double *work,
26444 ptrdiff_t *info
26445);
26446
26447#endif /* !defined(MW_HAVE_LAPACK_DECLS) && defined(_LAPACKE_H_) %#ok */
26448#ifdef __cplusplus
26449 } /* extern "C" */
26450#endif
26451
26452#endif /* mllapack_h */
26453